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PREFACE 


This publication provides the information required by a 
user who want to migrate from a System/3 to IBM 4300 
Processor under DOS/VSE. It contains the information 
needed to convert programs and files and to prepare the 
corresponding control card. The assistance concerning file 
distribution is more meaningful when the user is familiar 
with the physical location of these files. 

The publication is divided into three main parts: 
“Understanding the Program” contains a functional 
description of the program and presents hardware and 
software requirements. 

“Installing the Program” describes the components of the 
Program as distributed and how to install them. 

“Running the Program” contains the steps in performing 
the conversion of a job stream and describes the input and 
output. 

Appendix A and Appendix B contain a detailed 
description of each component of the program and of the 
layout of the files used by these components. These 
appendixes should be consulted for modifications to the 
source code. Appendix C contains a sample problem, 
illustrating the conversion of the job streams of two 
programs. 


First Edition (July 1979) 


All listings are in English, and all constants are in tables o: 
arrays at the end of each program. This makes it easy to 
modify them or to tranlate them into another language. 

In order to use the System/3 to DOS/VSE Conversion 
Aid program, the reader should be familiar with the 
differences between System/3 RPG and DOS/VS RPG. He 
must also be familiar with the JCL, sort specifications and 
programs, and the charateristics of the different access 
methods. 

Before using this International Field Program, the reader 
should be familiar with the contents of System/3 to 
DOS/VS Conversion Guide, GC20-1792 and Introduction 
to DOS/VS, GC33-5370. 


This edition applies to Version 1, Modification Level 0, of Conversion Aid System/3 
to DOS/VSE, Program Number 5785-KAD, and to all subsequent releases and 
modifications until otherwise indicated in new editions or Technical Newsletters. 
Changes are periodically made to the information herein; before using this 
publication in connection with the operating of IBM systems, consult the latest JBM 
System/370 Bibliography, GC20-0001, for the editions that are applicable and 


current. 


Publications are not stocked at the address given below; requests for IBM 
publications should be made to your IBM representative or to the IBM branch office 


serving your locality. 


A form for reader’s comments is provided at the back of this publication. If the form 


has been removed, comments may be addressed to: 


IBM Netherlands 

International Field Program Center 
P.O. Box 24 

1420 AA UITHOORN 
Netherlands 


IBM may use or distribute any of the information you supply in any way it believes 
appropriate without incurring any obligation whatever. You may, of course, continue 


to use the information you supply. 
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INTRODUCTION 


When a System/3 user decides to upgrade to a System/370 or an IBM 4300 
Processor, he encounters a certain number of difficulties. First, 
System/3 RPG, in which most user programs are written, does not have the 
same functions as DOS/VS RPG. Second, within a short time the user has 
to change not only his programs, but also the control cards and physical 
location of the files. 


IBM has made the System/3 to DOS/VSE Conversion Aid International Field 
Program available in order to help the System/3 user convert to DOS/VSE 
and allow him to prepare for the conversion using his System/3. In this 
way, while using tools familiar to him, he can have his programs ready 
for execution when his System/370 or 4300 is installed. 


It is recommended that System/3 sequential files without additions to 
the end of the file and treated consecutively be converted to SAM files. 
Otherwise files should be converted to VSAM files. 


The System/3 to DOS/VSE Conversion Aid International Field Program 
consists of 19 source programs written in System/3 RPG and one resident 
program written in DOS/VSE Assembler language. The DOS/VSE program 
should be catalogued into the DOS/VSE relocatable library. This routine 
serve as a complement to the converted System/3 programs when the chosen 
methods is VSAM, and it is used to access on ESDS VSAM file or to access 
the Data component of a KSDS VSAM file by relative record number. 


THE_CUSTOMIZER 


The first four programs to be executed make up the customizer; two of 
these programs can be executed on a System/3 Model 10 and the other two 
on a System/3 Model 15-B. The fcllowing is specified: 


e Using the SWITCH card: 


= Control statement input on 80- or 96-column cards or on 
diskette 


- Customized output of the conversion aid programs on 80- or 
96-column cards, diskette, or magnetic tape 


= Output of the components to be cataloged on the DOS/VSE 
relocatable library on 80-column cards, diskette, or magnetic 
tape. 


° Configuration of the System/3 on which the conversion programs are 
to be executed: 


= Input of the programs to be converted to 80- or 96-column 
cards or diskette 


7 Type of disk unit for work files 


7 Output of the converted programs (including control cards for 
cataloging and printer carriage control tapes) cn 80- or 
96-column cards, diskette, or magnetic tape 


= Output of the input jok stream for execution under DOS/VSE on 
80- or 96-column cards, diskette, or magnetic tape. 


e Correspondence between System/3 devices and System/370 devices 
° Description of System/370 or 4300 configuration: 


= Type of disk (3330, 3340 or FBA) 

7 Type of printer 

~ Printer line length (default value) 

Ses Printer overflow line (default value) 

7 System/370 POWER/VS (included or excluded) 


This customizer will call an input file that contains the remaining 
components of the conversion aid program. 


If this customizer needs to be executed on a System/3 Model 15-C or 15- 
D, programs CST151 and CST152, residents in Source Library, must be 
compiled. The SUBR93 subroutine, needed to compile CST151 program, is 
cataloged in R Library. 


CONVOO and CONV0O1, the first two components of the actual conversion 
program, prepare the definition and calculate the occupancy of all the 
files of the programs to ke converted. 


The CONVOO control cards specify the characteristics of all files: the 
type and name of each file, the length and number of records, and so on. 
CONVO1 provides a listing of file occupancy of the logical units, and 
places on a work file the informaticn required by subsequent components. 


Sequential disk files can be converted to SAM or VSAM-ESDS. Direct 
files can be converted to VSAM-RRDS with relative record number. 


Indexed files can be converted to VSAM-®SDS or VSAM-FESDS with alternate 
indexes (if the file is created unordered). 


The CONVO2 component reads the System/3 source programs. If these 
programs are compatible with the file definitions, and if there are no 
other unresolvable incompatibilities, CONVO2 places them in a work file. 
CONVO2 is the only component that is executed each time a source program 
is converted. If a program is not accepted, only that program need be 
resubmitted. 


It is assumed that all pregrams to be converted have been executed 
without errcer on the Systems3. The CONV03 to CONV0O5 components convert 
all the source programs in a job stream placed in the work file by 
CONVO2. CONVOS5 places the converted source programs on the type of 
media specified in the customizer. 


The listings produced for each converted program contain: 


° A listing of the converted program 

° Modifications performed by the conversion aid program 

° Modifications assumed by default and which must be verified 
° Functions that the program cannot convert and which must be 


converted manually. 


The conversion aid program contains a large number of components in 
order to execute it on a System/3 16K partition. 


The programs converted using components CONV00 to CONVO5 can be executed 
under DOS/VSE. The remaining components perform the following 
functions: 


Creating printer carriage control tapes 
° Distributing files on disk 


° Preparing the conversion of System/3 files to System/370 via 
intermediate tape files or Lata Import Feature 


° Defining catalog, space, and VSAM files 


° Preparing the input job stream for execution. 


CREATING PRINTER CARRIAGE CONTROL TAPES 


The CONV06 component processes printer carriage control tapes. First, 
it reduces their number to a minimum; then it numbers them, starting 
with the number specified in the input to the CONVO4 component. In 
addition, it gives a name to each tape and lists its format. The 
component generates the control and data statements used to compile and 


catalog all the FCBs, unless an IBM 1403 Printer without POWER/VS is to 
be used. 


DISTRIBUTING FILES ON DISK 


The CONVO7 component distributes files on disk. A data statement must 
be entered to CONVO7 for each SYSXXX defined in CONV00 to relate the 
SYSXXX to the volume number and to indicate the relative position in 
which the disk space of the pack must be allocated. If these statements 
contain no errors, CONVO7 produces an occupancy list similar to the one 
produced by CONVO1. This list indicates the files on each pack which 
may contain one or several SYSXXX. CONVO7 produces, too, a listing of 


the DLBLs and TLBLs in alphabetical order according to labels and with 
blank file names. 


COCUMENTATING INSTALLATION AND FILES CONVERSION 


Components CONV08 to CONV10 docurent installation and prepare the 
conversion of files from System/3 to System/370 or IBM/4300. Files can 
be converted via tape medium (concerns only those files whose definition 
statement contain an R in column 65) or via Data Import utility if 3340 
Data Import Feature is installed. (Concerns only those files whose 
definition statement contain U in column 65.) 


The CONCO9 component lists all control statements required to execute 
the programs converted at this point. This listing is in alphabetical 
order according to program name. The control statements are prepared 
assuming the pograms use the NAME-LABEL relationship specified in 
CONVO2. These listings may be useful if the components that prepares 
the input job stream for executicn are not used. Again, the CONV09 
component prepares if any file definition statement was specified with 
an R in column 65: 


e The $TINIT statements to initalize tapes 


° The $COPY statements needed to dump tape files with a block size no 
larger than 4096 bytes. 


The CONV10 component prepares: 


° DEFINE MASTER CATALOG statements, to which must be added the number 
of the first trackyblock of the FXTENT and the name of the disk 
pack from the EXTENT statement and from the VOLUME parameter in the 
corresponding AMS statement. 


e DEFINE SPACE statements. 
° DEFINE CLUSTER statements to every VSAM file defined. 
° DEFINE ALTERNATE INDEX and its PATH to every VSAM file defined with 


type A specified. 


° REPRO statements (concerns only to those files whose definition 
statement contains an R in column 65). 


e DATA IMPORT UTILITY statements (concerns only to those files whose 
definition statement contains a U in column 65). 


° BUILD INDEX statements (concerns only those files whose definition 
statement contains an R or an U in column 65 and type A specified). 


PREPARING THE INFUT JOB STREAM FOR EXECUTION 


Components CONV11 to CONV14 convert System/3 OCL to DOS/VSE JCL. Input 
can be any set of System/3 OCL control statements, but /*, /&, and /. 
records must be replaced manually by */, &/, and ./ in order to avoid 
terminating the program on an end-of-file condition. 


If an OCL stream is unexpectedly terminated, the CONV11 component can be 
executed again, beginning with the data that was not processed. The 
created records will be added to the output file. 


If the OCL statements contain no errors, and if all programs and files 
referred to in the statements have already been converted: 


° The DOS/VSE JCL statements required to execute the converted 
programs are generated. 

e System/s3 COPY statements are converted to AMS REPRO statements. 

° System/3 SORT control statements are converted, with the exceptions 


given in Appendix A. 
Special care is required when converting SORT control statements 
using the digit-portion option. These statements are not 
converted, unless the numeric field is changed from a D to a C ora 
U. 
The remaining OCL statements are transferred without change, anda 
warning message is issued. 


ADDITIONAL CONVERSION MODULES 


When a System/3 program processes randomly a sequential file converted 
to ESDS, the converted program calls the WKVMXV module. 


The following functions are performed by the components of the program: 


° The H statement is transferred with its valid entries. 
° All statements are numbered and contain the name of the program. 
° The required entries of the F statement are changed according to 


the file characteristics and the Logical SYSXXX unit. 


° File names are decreased to seven characters and are modified (if 
required) to avoid duplicates. The corresponding F, FEF, I, C, and 0 
statements and file conversion cards are updated. 


° The first ten compilation tables are modified to fit into 80-column 
cards (if they exceed 80 positions). 


° The E statement is modified from execution tables or arrays if the 
number of entries per record is to be modified. The number of 
entries per record is also modified in the FE statement if the 
record length has been changed. 


e New table files are created when more than one execution table is 
assigned to a file. 


e The L statement is converted to comments, or a new L comment 
statement is created for a printer file. 


° Decimal positions are placed in arrays or in elements of arrays 
defined in I statements. 

° Half-adjust (H in position 53) is added for SORT operations. 

e Module to convert relative record number to relative byte address 


(for VSAM ESDS files) is included and flagged. 


° C€ statements added to branch to the included module are updated. 

e Cc statements are added to create random RRDS files. 

° The ADP characters in the addition to sequential files are 
suppressed. 

e If nothing is added to an additions file, this condition is 
detected. 

° Errors in operation codes are detected. 

° In © statements, the skip to line number by channel S¥IP is 
changed. 

° One space is assumed following printer lines without spacing or 
SKIPs. 

° The overflow indicator is changed from output AND lines to primary 
lines. 

° The LO indicator in C staterents is suppressed. 

° The specification of output spacing in console files is suppressed. 


The following conversion actions performed by the program may not be 
complete. They should be verified before compiling the converted source 
programs. 


° A warning message is issued to remind the user that an AMS Build 
Alternate Index Command must be executed after running a program in 
which an ESDS file with alternate index is created. 

° The stacker selection specified in I and 0 statements is ignored. 

° Files processed ketween limits and random, primary, display, 
demand, or table files are assumed not to be affected by an 
external indicator. 


° The record length in ADDROUT files is changed. 


A warning message is issued to indicate that the contents of the 
*ERROR field should be analyzed if M fields, record sequence 
checking, or record identification checking are used in the 
program. 


The following functions are not converted. Either the conversion must 
be performed manually, or the System/3 source programs must be modified 
before conversion. 


Table expansion is performed only for the first ten defined 
compilation tables. The eleventh table and those following must be 
modified manually if the data does not fit into 80-column 
Statements. 


A warning message is issued to indicate that the execution tables 
must be modified if the number of entries per record has been 
changed. 

A warning message is issued when data files are converted from 
96-column to 80-column cards, and the defined fields exceed the new 
record length. 

Combined files are not allowed. 

Double I7O areas and blocking of SPECIAL files are not allowed. 


A warning message is issued when H indicators are used. 


The module used by SPFCIAL files or by any files called by an exit 
routine must be rewritten. 


Statements added using an Auto Report COPY statement must be 
cataloged in the R sublibrary cf the DOS/VS source statement 
library. 

Only 15 files are allowed per frogram. 

Only one printer is allowed per program. 

No console files, other than output or display files, are accepted. 
No more than 11 skip positions are allowed in a printer listing. 


Data cannot be printed on cards. 


Warning messages are issued to indicate reserved words that must be 
changed. 


MISCELLANEOUS CCNVERSION AICS 


A customizer adapts the programs to ke converted to the System/3, 
System/370 or 4300 configurations used. 


Printer carriage control tapes are converted, and the cataloging of 
FCBs is prepared. 


Files and data spaces are distributed on disk. 


The execution statements of each program are listed. 


° Control statements to convert files to disk using magnetic tape as 
intermediate step are generated. 


° Execution job streams, including about 80% of sorts and file 
copies, are converted from System/3 to System/370 or 4300. 


MINIMUM CONFIGURATICNS 


The minimum System/3, System/370 or 4300 configurations required by the 
System/3 to DOS/VSE Conversion Aid International Field Program are given 
below. 


SYSTEM/3 


The customizer components of the program require, in addition to the 
configuration needed to execute the source programs to be converted 
(System/3 Model 10 or 15), one IBM 5444 Disk Storage Drive or one IBM 
3340 Direct Access Storage Facility, and one magnetic tape unit. 


The program conversion components require: 


One System/3 Model 8, 10, 12, cr 15 

A Minimum of 16K bytes of partition core storage 

One data entry unit, any type 

One 80- or 96-column card punch, or one Magnetic tape unit 
One printer, any type 

One disk unit, any type. 


The System/3 must be equipped with a DSM operating system and an RPG 
compiler. 


SYSTEM/370 CR 4300 ERCCESSCR 


To catalog the converted source rfrograms, any System/370 or 4300 can be 
used, equipped with: 


° One 80- or 96-column card reader, one Magnetic tape unit, or one 
Diskette InputyOutput Unit 


e One printer 


° One IBM 3330 Disk Storage or one IBM 3340 Direct Access Storage 
Facility or one IBM 3310 or IBM 3370. 


In order to convert Systemys3 files using the conversion program, a tape 
unit or Data Import Feature is also required. 


The characteristics of the System/370 or 4300 must be those specified to 
the customizer components. The system must include work areas with 
cataloged labels in order to compile and execute the sort programs and 
the BUILD ALTERNATE INDEX command. 


IBM DOS/VSE RPGII, Licensed Program 5746-RG1 is required. To convert 
System/3 files using the control statements generated by the conversion 
program, VSAM support is required. 


An overall flowchart of the program is given in Figure 1. 
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INSTALLING THE PROGRAM 


The magnetic tape containing the System/3 to DOS/VSE Conversion Aid 
International Field Program may te restored directly onto an IBM 5444 
Disk Storage Drive, or into the 5444 simulation area of a 3340. 


When the disk has been restored, it will contain: 


° An object library in which are cataloged the CST101 and CST102 
components (for a Systemyv3 Model 10) and the CST151 and CST152 
components (for a System/s3 Model 15B). These components make up 
the customizer, according to the Systems3 model on which they are 
to be executed. The SUBR93 subroutine is cataloged in the R 
Sublikrary. 


° A source library, in which is cataloged the source CST151 and 
CST152 components to be compiled in case a System/3 Model 15-C or 
15-D, is used in the customizer step. 


° A file containing all the conversion components and the routine to 
be cataloged in the System/370 or 4300 processor. 


CUSTOMIZING THE PROGRAM 
The customizer components are executed only once and modify the 
definitions of the different files used for conversion. In addition, 
they retrieve the conversion components from the 5444 disk and place 
them, together with the routines to be cataloged in DOS/VSE Relocatable 
Library , onto the medium specified in the SWITCH statement. These 
components can then be compiled and cataloged in the System/3 used for 
the conversion process. 


Output can ke on 80- or 96-column cards, diskette, or magnetic tape. 


CATALOGING MODULE IN THE DOS/VSE RELOCATABLE LIBRARY 

The input job stream obtained as trial output from the customizer is a 
DOS/VSE SYSIN file that assembles and punches the WKVWXV module with the 
JCL to catalog it in the Relocatable Library. This module is written in 
DOS/VSE Assembler. 

Once the SYSIN has been executed, the obtained deck needs be executed 
also. 

SAMPLE PROBLEM 

The complete execution of the sample problem distributed with the 
program is given in Appendix C which also contains a Listing of the 
sample problem as follows: 

e Input: 


= Statements containing specifications for customization 


a Input statements (OCL control statements, source programs, and 
data). 
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Output: 

- Converted source programs 

= FCBs to be cataloged 

- System/3 OCI statements and DOS/VSE JCL statements to be used 
to convert disk files, using magnetic tape and Data Import 
Utility as an intermediate medium, and to define VSAM catalog 
and data spaces. 


= Generated DOS/VSE JCL statements. 


Listing oktained after having executed the sample problem. 
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RUNNING THE PROGRAM 


After the source programs have been sustomized and cataloged, the actual 
conversion process can be started. Components CONV06 to CONV10 should 
be executed, if possible, only once during the conversion process in 
order to keep the number of printer carriage control tapes to a minimum 
and to avoid unwanted dualities in the allocation of SAM files. 


If the components CONV06 to CONV10 are executed a second time: 


° Make sure that SAM files located on each pack used in previous 
processes are exactly equal to the ones located in the second time. 
If this condition is not true, the automatic location assigned to 
SAM files in the second process can be different. 


° Delete the existing CONTROL file before executing the CONVO4 
component to avoid adding data to the end of existing data. 


° Enter the number of the first FCE not used in the previous 
conversion process in place of the number 000 or 001 for the CONVO4 
component when re-executed. 


If the components CCNVOO and CCNVO1 are executed a second time, re-enter 
CONVO0O control statements containing specifications of all files to be 
used in the conversion, even though some of the information may have 
already been entered. 


The CONVO2 component is the only one that has to be executed for each 
source program to be converted. Components CONV03 to CONV06 are 
executed only once for all programs that have been accepted by the 
CONVO2 component. 


The converted programs can refer to all or part of the files entered 
using the CONV00 component. If they refer to only a part of the files, 
components CONV03 to CONV05 will have to be executed several times, once 
for each grcup cf programs that refer to the files. The data for the 
different groups is added to the CONTROL file. At the beginning of each 
group of source programs, and before executing the CONVO02 component, the 
PROGRAM file must be deleted to avoid adding programs following the 
previously converted ones. 


Components CONV11 to CONV14 may be used as often as needed to convert 
job streams, as long as these jok streams refer to files and programs 
described in the JCLFILE, S3LABEFIL, and LABEIS files. The CONV11 to 
CONV14 components do not update these files. 


The input job streams may not contain CALL statements to request 
cataloged procedures. All control statements for the program must be 
included in the job stream. 


INPUT 


To customize the source program before beginning the conversion process, 
the following data must be entered for the CST101 or CST151 component, 
depending on the System/3 model used and on the I/O medium indicated in 
the SWITCH statement: 


° A CNV record indicating the configuration of the System/3 on which 
the conversion is to ke performed 
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° A FUT record indicating the configuration of the System/370 or 4300 


° As many EQU records as required to specify the equivalences between 
Systemy3 devices used by the programs and the devices in the 
System/370 or 4300 configuration. 


As shown in Figure 1, file definition data (one record per file) must be 
provided fcr the CONVOO component. This and all other input must be on 
the input medium specified for the customizer. NAMEF-LABEL cards must be 
placed before the source program in the CONV02 component, followed by a 
7// cecord. In all executions of the CONVO4 component applying to one 
run of the CONVO0 and CONV06 components, the first unused FCB must 
always have the same number. If the numbers are different, the number 
in the last execution of CONVO4 is assumed. 


As input to the CONVO7 component, the relationship between the physical 

disk units and the logical SYSXxXx units must be specified. At the same 

time, and in the same statement, the Relative Position in which the disk 
space of the pack is allocated must be specified. 


The job streams to ke converted are submitted as input to the CONV11 
component. 


FORMAT CF CCNTROL STATEMENTS 


POSITION IDENTIFICATION DESCRIPTION 
OR COLUMN 
1 Identifier F 
2-30 Label System/s370 file identification. In VSAM, 
the file identification must be coded as 
follows: 
° One to 29 characters: A to Z, 
0 to 9, -, #, 3, or $ 
° A period must follow each group of 
eight or fewer characters 
° No embedded blanks are allowed 


The first character of each group 
must be alphabetic 
e The last character of the file 
identification cannot be a period. 
For other files, the first character 
must be alphabetic. Valid characters 
are A to Z, 0 to 9, blank, -, ., #, 4, 
and $. 
31-34 Block length (For tape files) Block length must be a 
multiple of the record length. 
number from 3 to 4096 
sequential 
SAM VSAM managed 
tape 
VSAM KSDS 
VSAM RSDS 
VSAM ESDS 
VSAM ESDS with alternate index 
40-41 Key length (For I, K, or A files) A number less 
than or equal to 29, and less than or 
equal to the record length 
42-45 Key location For I, K, or A files 


35-38 Record length 
39 File type 


PHAAHACHN Y 
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46-47 Percent of free For K files 


space in 
control intervals 
48-49 Percent of free For K files 
space in 
control areas 
50-52 Logical SYSXxXxX A number from 001 to 099 
units 
53-56 Validity period If omitted, zero is assumed 
in days 
57-62 Estimated number Based on this number, the size of the 
cf records file is calculated 
63-64 Initials of the The CONVO1 listing of file occupancy is 
application printed, sorted according to these 
initials 
65 Destination Mandatory field. To generate REPRO 
statements to create a VSAM file or 
CITTO statements to create other files, 
an R must be entered. To generate Data 
Import Utility statements to create other 
files a U must be entered. Otherwise, 
an N must be entered. 
66-73 System/3 label System/3 file identification 


CONVO2 NAME-LABEL Statement 


POSITION IDENTIFICATION DESCRIFTION 

CR COLUMN 

1-8 File name System/3 file identification 
9-37 Label DOS/VSE Label identification 


CONVO4 Statement Containing First FCB Number 


POSITION IDENTIFICATION DESCRIPTION 
OR COLUMN 
1-3 Number of first FCB 


CONVO7 _SYS-PACK Relative Position Statement 


PCSITION IDENTIFICATION DESCRIPTION 

CR COLUMN 

1-3 Logical unit SYSnnn, corresponding to positions 
50 to 52 of the CONVOO statement 

4-9 Pack name Volume identification of the pack in which 
files assigned to the SySnnn will be 
allocated. 

10-16 Relative 

Position Numker of relative track/block positions in 


which space allocated on the pack must start. 


// SWITCH 10000000 Control statements on 96-column cards 
// SWITCH 01000000 Control statements on 80-column cards 
// SWITCH 00100000 Control statements in 96-column diskette records 
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Customizer (CST102 or CST152) Output 


// SWITCH 00001000 Program output on 96-column cards 
// SWITCH 00000100 Program output on 80-column cards 
// SWITCH 00000010 Program output on diskette 

// SWITCH 00000001 Program output on magnetic tape 


In the System/3 UPSI, only one of the bits U1, U2, and U3, and only one 
of the bits U5, U6, and U7 may be set. The U8 bit may be set at the 
same time as one of the U5, U6 or U7 bits. 


CST101_ or CST151 CNV Statement 


POSITION IDENTIFICATION DESCRIFTION 
OR COLUMN 
1-3 CNV Identifier 
4-10 MFCU1 Conversion input device 
READO1 
READ42 
MFCM 1 
LISKET 
10-17 DISK Conversion work files 
DISK45 
DISK4O 
18-24 MFCU2 Device for output of CONV05 and CONV06 
TAPE components 
MFCM2 
READ4Y2 
DISKET 
25-31 MFCU2 Device for output of CONV09, CONV10, and 
TAPE CONV14 components 
MFCM2 
READ42 
DISKET 
32-36 Number of records in the WORKDSK file 


CST101_ or CST151 FUT Statement 


PCSITION IDENTIFICATICN DESCRIFTION 
CR COLUMN 
1-3 FUT Identifier 
4-7 3330 System/370 or 4300 disk units 
3340 
FBA 
8-9 18 to 99 Lefault forms length 
10-11 14 to 96 Cefault overflow line 
12 Yor N Use of POWER/VS 
13-18 3203-4 System/370 or 4300 printer 
3211 
3203 
5203 
1403 
3203-5 
PRT1 
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CST101_or CST151_ EQU Statement 


POSITION 
OR COLUMN 


4-10 


POSITION 
CR COLUMN 


11-17 


18-21 
22-24 


25-27 


Notes: 


IDENTIFICATION 


EQU 
MFCU1 
MFCU2 
PRINTER 
PRINT84 
CONSOLE 
blank 
DISK 
DISK45 
DISK40 
TAPE 
SPECIAL 
CRT77 
REALO1 
MFCM1 
MFCM2 
READ42 
DISKET 


IDENTIFICATION 


MFCU1 
MFCU2 
PRINTER 
CONSOLE 
blank 
DISK30 
DISK4O 
TAPE 
SPECIAL 
READO1 
RFALOS 
READ20 
READ25 
READ4O 
REAL42 
MFCM1 
MFCM2 
DISKET 
FBA 


DESCRIPTION 


Identifier 
System/3 


DESCRIFTION 


Systems370 or 4300 


Maximum record length (required for 

printer and diskette) 

Logical SYSXXX DOS/VSE device (required for 
all devices except DASD) 

Fhysical device address (required for all 
devices except DASD; used to create ASSGN 
statements) 


1. The 5444 simulation area of a 3340 disk does not support random 


access to indexed files. 


Since the International Field Program 


uses random access to indexed files, this area cannot be used as a 
conversion work area. 
statement can be used only for an actual 5444 disk unit. 
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Therefore, positions 10 to 17 of the CNV 


2. If a System/3 card reader punch is replaced by two different 
DOS/VSE devices, two FQU statements must be used, with the same 
code in positions & to 10 and different ones in positions 11 to 17. 


3. The first FQU statement read by the customizer will be considered 
as the definition of the input unit and the second as that of the 
output unit. If there is only one EQU statement, the code in 
positions 11 to 17 will be considered as the definition of the 
input/output unit. 


PROCESSING 
In the input to CONV00, there must be one F statement for each labeled 
tape file or disk file used by the programs to be converted. If CONVO0O 
is executed without error, CONV01 will be executed: if not, the control 
statements must be corrected and CONVOO rerun. 


When CONVOO and CONVO1 have been executed without error, CONVO2 must be 
executed for each program to be converted. The input data for CONV02 
includes a NAME-LABFI statement for each labeled tape or disk file used 
by the program, followed by a // statement and the source program to be 
converted. If a program is rejected {an explanatory message is 
displayed at the printer), it will not be added to the file of converted 
programs and must be reconverted. 


When all the source programs have been accepted by CONV02, CONV03 to 
CONV05 can ke executed one after the other without interruption. Input 
to CONVO4 will include the number of the first FCB not used by former 
runs of CONVO6. 


CONV05 produces the converted source programs, together with the control 
statements required to compile them and catalog them in the DOS/VSE. In 
addition, it produces a listing of the converted source programs, with 
the number of the corresponding error messages. The text of the 
messages is given at the beginning of each program listing. 


Messages numbered 25 and above are warning messages, and no action is 
required. However, a special processing routine for sequential files 
will be cataloged in the DOS/VSE Relocatable Library in response to 
message 38 or 55. 


Messages 1 to 25 require action of some kind. In some cases, the system 
response must be verified, and in others manual intervention is 
required. 


The converted source programs must be modified according to the 
appropriate messages kefore being compiled on the System/370. 


When CONVO5 has been executed, CCNV06 is run to list the printer 
carriage control tape images and to prepare for cataloging the FCBs. 


From the SYS-PACK RELATIVE POSITION statements, CONVO7 produces a listig 
of file allocation per disk pack. The disk space is automatically 
allocated as follows: 


° Are located SAM files (in Label alphabetical order) without any 
space between a file and the next one, they are allocated at the 
specified Relative Position. 


° The disk space behind the one used by SAM files (if any) is 
dedicated to VSAM Data Space. 
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CONVO3 and CONV10 provide the statements required to prepare the 
conversion of master files using data from the LABELS file. 


CONV11 to CONV14 convert the System/3 OCL statements; the number of 
statements to be converted depends on the size of the STREAMS file. If 
CONV11 terminates on an unexpected /*, /&, OY fe, the remaining OCL 
statements must ke deleted from the input file; otherwise, the System/3 
will execute them as a jok. 


QUTPUT 


The output from the conversion aid program includes listings, messages, 
and miscellaneous output. 


LISTINGS 


The customizer produces no listings, unless errors are detected in the 
input statements. 


CONV00 produces a listing of control statement errors for file 
definition, in case the same data must be processed again. If the input 
data contains no errors, no listing is produced. 


CONVO1 produces a listing of all the files defined in each logical 
SYSXXX file. The listing contains the name of the file, the number of 
records in the file, and the occupancy of the file on disk. 


CONV02 produces printed output only when errors are detected. If errors 
are detected, the source program being converted is not placed on disk. 


CONVO5 produces a listing of the converted source programs, together 
with the messages indicating modifications to ke per formed. 


CONVO06 provides a listing of all carriage control tape images, as well 
as a listing of the programs that use each control tape. 


CONVO07 provides either a listing of errors or a listing of the files in 
each disk pack and a listing of the DLBLs, EXTENTs, and TLBLs of all 
files. It lists DLBLs and TLBLs, leaving file names blank, since the 
file name may be different in each program using the file. 


CONVO9 lists a control statement dictionary to be used when executing 
the components of the program. It is assumed that the files used will 
be those specified in the NAME-LABFL statements for CONV02. The 
dictionary is classified ty program name and includes: 


e // ASSGN statements 

° // PAUSE * MOUNT CARRIAGE TAPE xxx (for a 1403 printer without 
POWER/VS) 

e // EXEC SYSBUFLD (with no 1403 printer and without POWER/VS) 

° * $$ LST statement with FCP parameter 

e DLBLs, EXTENTs, and TLBUus from the files to be used 

e EXEC statement for the program 

e AMS BLUINDEX statement if a VSAM ESDS file with alternate index is 
created. 
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CONVO9 and CONV10 produce listings of converted statements to convert 
files. 


CONV14 provides a listing of the generated DOS/VSE JCL statements, 
together with short comments. Unconverted System/3 OCL statements are 
included, with warning messages indicating why that conversion was not 
per formed. 
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MESSAGES 


CONV00 Messages 


LABEL MISSING 

INVALID LABFL CHARACTER OR SEGMENT LABEL 
INVALID BLOCK LENGTH 

INVALID RECORD LENGTH 

KEY LENGTH MISSING 

INVALID KEY LENGTH 

INVALID KEY LOCATION FOR THIS FILE 
LOGICAL SYS MISSING 

FREE SPACE FOR A NON KSDS FILE 

INVALID DESTINATION FILE CODE 

SYSTEM/3 LAPEL MISSING 

INVALID FIRST CHARACTER LABEL OR LAEEL SEGMENT 
BLOCK LENGTH MISSING 

RECORD LENGTH MISSING 

INVALID FILE TYPE 

INVALID KEY LENGTH FOR THIS FILE 

KEY LOCATION MISSING 

INVALID KEY LCCATION 

INVALID LOGICAL Sys 

NUMBER OF RECORDS MISSING 

INVALID RECORD LENGTH FOR DESTINATION R 
SYSTEM/3 LABEL INVALID 


CONV01 Messages 


DUPLICATED LABELS 
SYSTEM/3 DUPLICATED LABELS 
PLEASE, CORRECT DUPLICATED LABELS AND REPEAT THE WORK 


CONV02_ Messages 


MCRE THAN 15 NAME~LABFI RECORCS 

FILE NOT PREDEFINED 

PROGRAM NAME INVALID 

H CARD MISSING 

INVALID FILE DEVICE 

FILE IS NOT IN NAME-LABEL RECCRDS 

MORE THAN 15 FILES 

FILE NAME REPEATED 

MORE THAN CNE PRINTER FILE 

FILE ATRIBUTES DO NOT MATCH 

TABLE FILE CANNCT BE A KEYED FILE 

MORE THAN ONE ADDROUT OR BY ADDRCUT FILE 
ADDROUT WITHOUT FILE BY ALCDRESS CR CPPOSITE 
THERE IS NO VALID F CARD 

ANY NAME-LAREL RECORD NOT USED 

ENTRY IN TABLE GREATER THAN RECORD SIZE 
TR RECORD MUST RE IN A CARD FILE 

FIELD END POSITICN GREATER THAN RECCRD 
SOURCE PROGRAM CARDS OUT OF SEQUENCE 
THERE ARE NC C CARDS 

ERRORS DETECTED IN SOURCE PROGRAM 
~CORRECT IT, AND REPEAT THE STEP 
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CONVO5 Messages 


1 
2 
3 


NUS 


10 


11 
12 
13 
14 
15 


16 
17 


COMBINED FILES ARE USED - MODIFY PROGRAM LOGIC TO ELIMINATE IT. 
CONSOLE FILES MUST BE OUTPUT CR DISPLAY - MODIFY PROGRAM LOGIC. 
PRIMARY, RANDOM, DEMAND, DISPIAY, TABLE OR LIMITS FILES MUST 
NOT BE CONDITIONED TO U INDICATOR - ASSUME NOT CONDITIONED 
SPECIAL FILE MUST NOT FE BICCKED NOR TWO I/O AREAS. 

THE FILF HAS ADDITIONS BUT NO ADDS ARE SPECIFIED IN © CARDS. 
THE OBJECT TIME TABLE MUST BE MOLIFIED TO FIT DATA IN NEW 
RECORD SIZE. 

M-FIFLDS ARE USED - MAY BE NECESSARY TO CHECK THE *ERROR FIELD. 
SPECIAL SEQUENCE ARE SPECIFIED ~ MAY BE NECESSARY TO CHECK THE 
*ERROR FIELD. 

NON IDENTIFIED RECORD CAN CANCEL THE PROGRAM - MAY BE NECESSARY 
TO CHECK THE *ERRCR FIELD. 

STACKER SELECTION SPECIFIED IN I CARD HAS BEEN SUPPRESSED - 
VALIDATE. 

INVALID OPERATION - SUPPRESS IT. 

REWRITE ASSEMBLER MODULE IN DOS/VSE ASSEMBLER. 

MORE THAN 11 SKIP POSITIONS ARE SPECIFIED - MODIFY THE PROGRAM. 
CARL PRINTING HAS BEEN CONVERTED TO COMMENT CARD - VALIDATE. 
STACKER SELECTION SPECIFIED IN O CARD HAS BEEN SUPPRESSED - 
VALIDATE. 

RESERVED WORD IS USED - MODIFY IT. 

A BLCINDEX AMS COMMAND MUST BE EXECUTED AFTER THE EXECUTION 

OF THIS PROGRAM, 

CONVERT THE SOURCE MODULE AND CATALOG IT IN THE R SUBLIBRARY 
WITH THE SAME NAME. 

H INDICATORS ARE USED ~ THE PROGRAM CAN BE CANCELLED. 

THE COMPILATION TIME TABLE MUST RE MODIFIED TO FIT DATA IN 80 COLUMNS 
INQUIRY SUPPORT HAS BEEN SUPPRESSED IN H CARD. 

1P FORM FOSITICNING HAS BEEN SUPFRESSED IN H CARD. 

DEBUG USE HAS BEEN SUPPRESSED IN H CARD. 

FILE NAMF HAS BEEN SHORTENED TO SEVEN CHARACTERS. 

FILE NAME HAS BEEN MODIFIED. 

NEW TABLE FILE. 

INCLUDED MODULE TO ACCESS BY RELATIVE RECORD NUMBER 

AN ESDS FILE. 

TABLE READ BY NEW TABLE FILE. 

MODIFIED NUMBER OF ENTRIES PEFR RECORD IN OBJECT TIME TABLE. 
MODIFIED NUMBER OF ENTRIES PER RECORD IN COMPILATION TIME TABLE. 
THE COMPILATION TIME TABLE HAS BEEN MODIFIED TO REDUCE 

RECORD SIZE 

% CARD HAS BEEN CONVERTED TO COMMENT CARD. 

L COMMENT CARD HAS BEEN ADDEL. 

DECIMAL POSITION HAS BEEN ADDED TO AN ARRAY OR ARRAY 

ELEMENT IN I CARD. 

INSTRUCTIONS ADDED TO FRANCH TO RANDOM MODULE. 

CHAIN INSTRUCTION CHANGED TO CREATE AND RRDS RANDOMLY. 

THE SORT HAS BEEN HALF ADJUSTED. 

OVERFLOW INDICATOR MUST NCT BE IN AND LINE - CHANGED TO 
PRIMARY LINE. 

CHANGED SKIP TO A LINE NUMBER BY SKIP TO A CHANNEL. 

ONE SPACE AFTER ASSUMEL. 

ADD HAS BEEN SUPPRESSED IN O LINE. 

LO INDICATOR HAS BEEN SUPPRESSED IN O LINE. 

SPACES FOR CONSOLE LINE HAVE BEEN SUPPRESSED. 
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CONVO7_Messages 


ERRORS IN SYS - PACK RELATIVE POSITION CARDS 
SYS USED BUT NCT DEFINED 

SYS INVALILC 

SYS USED MORE THAN ONCE 

RELATIVE POSITION MISSING 

NON-EQUAL RELATIVE POSITICNS TC SAME PACK 
SYS DEFINED BUT NOT USED 

CCRRECT CARCS AND REPEAT THE WORK 


CONV14 Messages 


FUNCTICN NCT SUPPORTED 
THIS STATEMENT HAS NO EQUIVALENCE IN DOS/VSE 
NO INFORMATION ABOUT THIS PROGRAM 
UNEXPECTED END OF STEP 
ERROR IN O.C.L. 
FILE WITH NAME OR UNIT MISSING 
SCRT OR COPY WITH ANY FILF-NAME MISSING 
SORT OR COPY WITH UNLABELED TAPE FILE 
FILE NAME REFERENCES ONE FILE NOT PREDEFINED 
SORT HEADER CARD MISSING 
TAPE FILE WIHOUT FILE NAME 
TAPE SORTIN WITH MORE THAN ONE FILE NAME 
SORTIN WITH DIFFERENT TYPES 
OUTPUT RECORD LENGTH AND SPECIFIED RECORD LENGTH DO NOT MATCH 
ALTSEQ SPECIFIED AND ALTSEQ RECORDS MISSING 
MORE THAN ONE RECORD TYPE OR INCLUDE/OMIT SET, OR SEQUENCE ERROR 
INCLUDE AND OMIT BOTH PRESENT 
FORCED CONTROL FIELDS USED (F IN COLUMN 7) 
DATA CHARACTER FORCED USEL (V IN COLUMN 8) 
ZONE PORTION USED (Z IN CCLUMN 8) 
DIGIT PCRTICN USED (D IN CCLUMN 8) 
SUM FIELDS WITH MODIFIED LENGTH USFD 
SCRTRS WITHCUT SUM FIELDS CR VICEVERSA 
SORT WITHOUT F SENTENCES 
SORT ADDROUT NOT ALLOWED WITH SAM FILE 
ERRORS IN COPY SPECIFICATIONS 
OMIT OR DELET USED 
SELECT PKI USED 
COPYFILE STATEMENT BYFASSEL 
OUTPUT OTHER THAN DISK, FILE, PRINT OR BOTH 
SELECT KEY WITH UNKEYED FILE 
* * * EXECUTION * * * 
* NOT CONVERTED * 

* * * * INSERT ANY DATA HERE * * * * 
* * TEXT SHORTENED IN NEW JOB STREAM * * 
STATEMENT BYPASSED IN NEW JOB STREAM * 


* 
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CST101 and CST152 Messages 


CNV OR FUT CARD DUPLICATED. 

~-------- DEVICE INVALID. 

INVALID NUMBER OF RECORDS. 

FORM LENGTH OR OVERFLOW LINE INVALID. 
INVALID POWER SPECIFICATION. 

S/3 DEVICE INVALID. 

S/3 DEVICE CUPLICATED. 

DOS/VSE DEVICE INVALID. 

INVALID CLEVICE CORRESPONDENCE. 
INVALID MAXIMUM RFCORD LENGTH. 
INVALID LOGICAL SYS. 

INVALID PHYSICAL ADDRESS. 

CNV CARE MISSING OR FUT CARD MISSING. 
READER DEVICE MISSING. 

PRINTER DEVICE MISSING. 

DISK DEVICE MISSING. 

ONE U5-U8 INDICATOR ON NEEDED. 

CARD OTHER THAN CONV. FUT OR EQL 

ONE U1-U3 INDICATOR MUST BE CN 

ONLY ONE U5-U7 ON INDICATOR ALLOWED. 
ANY ERROR DETECTED - REPEAT THE STEF. 


MISCELLANECUS OUTPUT 


CONV00 to CONV14 are placed on the output medium specified in the SWITCH 
statement. Each component is preceded by the statements: 


// CALL RPG,R1 
// RUN 


The sample problem to be executed is placed on the same medium, 
following the last component. 


The sample problem will be followed by the routines to be cataloged in 
the System/370 or 4300. If two kits are set in the SWITCH statement 
(one of these bits must be bit 8), the program components will be placed 
on cards or diskette and on magnetic tape. 


Although programs cannot ke cataloged in a System/3 from magnetic tape, 


the customizer supports tape output in order to speed up customization. 
The tape may be converted offline to a different medium. 
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Converted Programs 


CONVO5 places the converted source programs, together with the control 
statements needed to compile and catalog them, on the output medium 
specified in the customizer. An image of this output is produced as a 
listing. 


Before the converted programs are compiled, system messages must be 
consulted and any required modifications or manual conversion per formed. 


CONVO06 produces job streams to be cataloged on the DOS/VSF C. I. 
Library. The phases correspond to the FCBs generated by CONV06, except 
when the carriage control tape is for a 1403 printer and POWER/VS is not 
used. 


For files to be copied from Systems3 to System/370 or 4300 via tape, 
CONVO09 generates: 


° $TINIT statements to initialize the tape reels. 


e COPY statements to copy fron disk to labeled tapes, using the 
Systems3 $COPY program. 


For VSAM files, CONV10 always generates: 

e AMS statements to define the master catalog. The name of the disk 
pack must be added to the EXTENT statement ana@ to the VOLUME 
parameter of the AMS statement. The starting track/block of the 
file must be added to the EXTENT statement. 

° AMS statements to define data spaces. 


° AMS statements to define clusters and the alternate index and its 
corresponding path in ESDS files with alternate index. 


° AMS statements to convert from tape to disk with REPRO and BLDINDEX 
statements for ESDS files with alternate index (if file conversion 
was requested in CONVOO with an R in column 65). 

For SAM and SAM VSAM managed files, CONV10 generates: 


° AMS statements to define managed non VSAM files. 


e AMS statements to convert from tape to disk with REPRO (if file 
conversion was requested in CONVOO with an R in column 65). 


° Data Import Utility statements to convert from System/3 Disk 3340 
to 4300 Disk. (If file conversion was requested in CONVO0 with 
a U in column 65). 


Normally, only permanent data files (master files, tables, and so on) 
are converted; intermediate or work files are not. 
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Job_Streams 
The output from CONV14 is a NOS/VSE job stream containing all JCL 
statements needed to execute source programs, sorts and REPRO {AMS). 


To execute the SCRT program, CCS/VSE must contain the standard 
definition of the SORTWK1-SYS001 work area. In addition, if not enough 
real storage is available for the AMS BLDINDEX, DOS/VSE must contain the 
standard definition of the IDCUT1 and IDCUT2 areas. 


The WORKDSK file is created by CCNVOO and contains information on all 
user files. 


Tt is used by CONV0O1 and CONV02 and then by CONVO7. The LABELS file is 
created by CONVO1 and is used by CONV07, CONVO8, CONVO9, CONV10, and 
CONV11. 


The PROGRAM file contains a record for each statement in the source 
programs being converted. The records are preceded by a record 
containing pointers to the address of the first statement of each type. 
The PROGRAM file is created during the first execution of CONVO02. 
During the following runs, records are added to the file. After having 
been used by CONV03 to CONVO5, the file is no longer needed and is used 
by CONVO6 as a work file for CCNIROL file records. 


The CONTROL file, created and completed by CONVO4 and used by CONV06, 
contains a record for each source program file, plus a record for each 
printer file. The CCLFILE file, created by CONV06 and used on request 
by CONV08, contains a record for each source program file. 


The S3LABFL file is a table that indicates the relationship between 
System/3 labels and DCS/VSF labels. It is created by CONV0O1 and is read 
at random by CONVO8 and CONV11. 


The JCLFILE file has three types of records. One contains information 
needed to create ASSGN statements, another the information needed to 
create DLBI and FXTENT statements, and the third contains card images. 
The file is created by CONVO8 and used by CONVO9 and CONV11. 

The STREAMS file is created by CCNV11 from the input job streams to be 
ccnverted and is updated ky CCNV12 and CONV13. It serves as input to 
CONV 14. 


Detailed information on the contents of these files is given in 
Appendix RB. 


SIZE OF WORK FILES 


The size of the different work files is shown in Figure 3. 
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EXECUTING THE CCNVERTED PROGRAMS ON THE SYSTEM/370 


When the converted programs have been modified, if it is necessary (see 
CONV06 messages 1 to 29) they must ke compiled using the appropriate RPG 
If compiler. Before being link edited (if CONV05 messages 38 or 55 have 
been printed), the WKV routine must be cataloged. 


Ce ae Re a eo a ee ee OS SS ea SSS oe eee eee 1 
| FILE | LENGTH | NUMBER CF RECORDS | 
| | (IN BYTES) | | 
sn wl aha keane accep pi ele si cac coreg em eae | 
| WORKSDK | 128 | Cne for each source program file, plus one 

{ | | for each statement of the longest source { 
| | | program to be converted, plus 20 | 
| I | | 
| PROGRAM | 128 | Cne for each source statement of the program| 
| | {| to be processed in one run by CONVO03 to | 
| | | CONVO5, plus 20 for each program | 
| | | | 
| LABELS | 128 | Cne for each defined file, plus one for each] 
| | {| volume containing VSAM files | 
| | | | 
{| CONTROL | 128 | 16 for each converted program | 
| | | | 
| OCLFILF | 64 | Same number as the CONTROL file { 
| | | | 
| S3LABFIL | 64 | Cne for each defined file | 
| | | | 
| JCLFILE j{ 128 | Cifficult to estimate; however, 45 times | 
| | | the number of programs to be converted will | 
| | | ke enough in most cases | 
| { | | 
| STREAMS | 128 | Three times the number of statements in the | 
| { | job stream will be enough in most cases | 
Deseo see nae 2 eee a eS oe ee ee ee eb esheets e ee ee eee J 


Figure 2. Size of Work Files 


The master files must be created in the System/379 or 4300 with or 
without the use of the conversion statements produced by the program. 


Finally, the execution job stream produced by CONV14 (completed, if 
necessary) is executed on the Systems370 or 4300. 
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APPENDIX A. DESCRIPTION OF INDIVIDUAL COMPONENTS 


THE CONV00 COMPONENT 


The CONVOO component creates the WORKDSK direct access file and reads 
file definition statements. The input consists of file definition 
records, and output is the WORKDSK direct access file and an error 
listing. 


File definition records of labeled disk or tape files are stored on the 
direct access file. File definition records are read and checked for 
errors; if no errors are detected, the records are placed on the WORKDSK 
file together with information on disk space, size of control intervals 
for VSAM files, and so on. 


When CONVOO and CONV0O1 have been executed without error, they need not 
be executed again. Errors checked in file definition statements 
include: 


° Missing labels 

° First character of label or lakel segment not valid 

e Invalid character in label or label segment 

° Missing block (tape files) 

° Invalid block (non-tarpe file or block length not multiple of record 
length) 

° Missing record length 

° Invalid record length (not ketween 3 and 4096) 

® Invalid file type (not S, V, T, K, Ry, FE or A) 

° Invalid key length (greater than 29 or greater than record length) 

° Missing key location (K or A file) 

° Invalid key location (E, R, S, V or T file) 

° Invalid key location (does not correspond to record length and key 
length) 

e Invalid logical SYSXXX (100 or greater) 

° Available space for non-KSDS file 

e Number of records missing 

° Creation code invalid (neither N nor R or U) 

e Missing System/3 label 

° Invalid System/3 label 

e Missing key length 

° Missing SYSXXX. 
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THE CONV01_COMPONENT 


The CONVO1 component checks duplicate labels and creates the LABELS 
file. The input consists of the WORKDSK and WORKDS1 direct access 
files, and the output is the WORRKDS1 direct access file, the LABELS 
indexed sequential file, the S3LABEIL indexed sequential file, anda 
listing of files, file sizes, duplicate labels, duplicate Systems3 
labels, and logical SYSXXxX devices used. 


If two names are found in a file, the first is the name given to the 
file definition statement, and the second is the disk label (if 
different from the first name). 


CONVO1 uses the records of the WORKDSK file according to two file 
definitions, one sequential and one random. It begins by sorting the 


records by label, in order to find duplicate labels and to create the 
indexed LABFLS file. 


Records are then sorted according to: 


° Initials of the application 
e Logical SYSXxXX device 

° File type 

e Label. 


This is done in order to set up a file list and to establish disk 
occupancy, both in the desired order. 


The component lists the files within each application that are used by 
logical SYSXXX devices. It then sorts the records again by System/3 
label to check for duplicates and to create the indexed S3LABEL file. 


Finally, CONV01 produces a listing of the logical SYSXxX devices used. 


If duplicate labels are detected, they should be corrected and both 
CONVOO0 and CONVO1 executed again. 


The CONVO02 component reads and checks System/3 source programs; if no 
errors are detected, the source programs are added to the PROGRAM file. 
The input consists of NAME-LABEL statements, a // statement, and 
statements of the source program plus the WORKDSK direct access file. 
The output is the WORKDSK direct access file, the PROGRAM file 
containing all the source programs to be converted, and an error 
listing. 


CONVO2 must be executed without errcr, once for each source program to 
be converted. It reads the source program, preceded by NAME-LABEL 
records and the sy record, and places it on the WORKDSK file, checking 
for possible errors. If no errors are detected, the source program is 
added to the PROGRAM file. 


For each source program, the following records are created in the 
PROGRAM file: 


e Type 1 record: pointers to the program 

e Type 2 record: names of the files used in the program 
° Type 3 records: one for each NAME-LABEL record read 

° Type 4 records: one for each source statement read 
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Type 5 records: one for each source statement added to the PROGRAM 
file (new table files, L statements, new I statements, new C 
statements, and table expansion during compilation) 

Type 6 record: ;/* statement 


Type 7 record: for U statements or Auto Report /COPY statements. 


Source program errors that make conversion impossible include: 


More than 15 NAMF-LAPFI records 

NAME-IABFI record referring to an undefined file 

Disk file with no NAME-LABFI record 

Attributes of disk or tape file do not match defined file 
H statement missing 

Program name invalid 

File name repeated 

More than 15 files 

More than one printer file 

Invalid device for a file 

More than one addrout or by addrout file 

Addrout without file by addrout or viceversa 

There is no valid F statement 

NAME-LABEL record refers to a file not used in the program 
Final field position greater than record length 

Source statements out of sequence 

O statements missing 

Table file cannot be a keyed file 

TR records must be in a card device 


Length of entry in compilation table greater than 80. 


If errors are detected, they should be corrected and the job repeated. 
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THE CONVO3_ COMPONENT 


The CONVO3 component partially modifies programs in the PROGRAM file. 
Input includes the sequential PROGRAM file and the PROGR file, the 
PROGRAM file with random access ky relative record number. Output is 
the updated PROGR file. 


CONV03 makes the following modifications, as necessary: 
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Enlarges the first ten compilation tables if data occupies more 
than 80 bytes per record 


Creates new table files when more than one execution table is 
assigned to a file 


Modifies the E statement from execution tables or arrays in case 
changes are made to the numker of entries per record, indicating 
that the table has te be modified 

Places NS in positions 15 and 16 of the look-ahead record 
Deletes stacker selection specified in I statements 


Checks for more than 11 skip positions 


Shortens or otherwise modifies the names of the files and places 
the new names in the F, F, I, C, and O statements 


If record length is changed, updates the FE statements with the 
number entries per new record 


Converts L statement to comments or, if there is a printer file 
creates a new L comment statement 


In 0 statements, changes the skip to channel number 


Assumes one space after printing in printer lines without space or 
skir 


Erases ADC character in additions to ESDS files 


Changes the overflow indicator in C statements from AND line to 
primary line 


Detects and flags additions files that are defined when no record 
additions are specified for the file 


Issues a warning message when sequence control of records is 
performed 


Issues a warning message when identification checking is performed 


Converts printer commands to write on cards to comment statements 
and issues a message 


Issues warning messages about the use of reserved words in E, I and 
O statements 


Issues warning messages about the use of H indicators in I and o 
statements 


Removes LO indicators from C statements and issues a warning 
message about their use 


Deletes spaces from the outrut lines to console files 
Checks indicators used, and locates one unassigned indicator 


Relocates pointers to indicate the beginning of files rather than 
the beginning of programs. 


THE CONVO4 COMPONENT 


The CONVO4 component partially modifies source programs in the PROGRAM 


file. 


Input includes the CARD file with a record indicating the number 


of the XXXX FCB to generate and the sequential PROGRAM file with random 
access ky relative record number. Output is the updated PROGRAM file 
and the sequential CONTROL file. 


CCNVO4 makes the following modifications, as necessary: 


Removes options from the H statement that are not used in DOS/VS 
RPG II 


Changes file definition F statements according to the 
characteristics of the files 


Flags the console file if it is not an output or display file 


Flags combined files and issues a message to warn the user that the 
program should be modified to avoid them 


Primary, random, demand, display, table/array, and limit files 
cannot be conditioned by external indicators. References to 
external indicators are flagged, and the corresponding files are 
not affected. 

Flags the use of a dcuble I/O area or a block in special files 
Requests rewriting the module used by special files 

Issues a warning message when an IMS BLINDEX command must be 
executed following program execution, if an EFSDS file is created 
with an alternate index 

Changes record length in ADEROCUT files 


Flags the inclusion of an access module by relative record number 
for VSAM ESDS files 


Updates the added C statements to branch to the routine for random 
processing for VSAM ESDS files 


Updates C statements to create random access RRDS files 


Places decimal positions in the arrays or array elements defined in 
I statements 


Places an H in position 53 (half adjust) for SQRT operations 
Detects and flags invalid operation codes 


Issues a warning message when an FXIT to a routine in System/3 
Assembler language must ke rewritten in DOS/VSE Asserbler language. 
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° Issues warning messages about the use of H indicator inc 


statements 

° Issues warning messages about the use of reserved words inC 
statements 

° Resumes warning messages used in each program and updates with this 


information the record type 2. 


The component creates records and adds them to the CONTROL file, 
together with information to be used later. This information includes a 
type A record for each file defined and a type B record for each printer 
file with a forms definition. 


The CARD file contains the number of the first FCB to be generated. Its 
purpose is to prevent creating several FCBs with the same name, when 
programs are converted in groups. 


THE CONV05 COMPONENT 


The CONVOS5 component places the converted source programs on the 
specified output medium and lists them on the printer. Input is the 
sequential PROGRAM file, and output is the SOURCES file of source 
programs on 80- or 96-column cards, diskette, or Magnetic tape and 
listings of the source programs and detected errors. 


CONVO5 reads the PROGRAM file, places the source program statements in 
the SOURCES file with the JCL statements for compilation and link 
editing, and lists them on the printer. If the use of POWFR/VS is 
specified, the component also creates JECL statements. 


Warning and action messages for each program are also listed. 


oe a ee ee 


The CONV06 component creates FCBs, lists them, and indicates the 
programs in which they are used. Input is the sequential CONTROL file 
and the PROGRAM work file, and output is the PROGRAM work file, the 
SCURCE file of FCBs on 80- or 96-column cards, diskette, or magnetic 
tape, the indexed sequential CCLFILE file of execution control cards, 
and a listing of the created FCBs and the programs in which they are 
used. 


The CONVO06 component performs the following functions: 


. Reads the CONTROL file and places its contents on the PROGRAM file, 
using the PROGRAM file as a work file throughout execution 

° Sorts data in the PROGRAM file by record type, form length, 
overflow line number, and iine channel numbers 1 to 11 

° Reduces to a minimum the number of FCBs to be generated 

e Creates form images in source program form and produces the JCL and 


JECI statements required to assemble and link edit them 


° Lists the created carriage control tape images and indicates the 
program in which they are used 


° Sorts data by program name, order number, and relative record 
number 
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° Creates the ordered indexed sequential OCLFILE file 


° Numbers the created FCBs, starting with the number specified in the 
input to the CONVO4 component. 


THE_CONVO7_COMPCNENT 
The CONVO7 component distributes defined files in disk packs and assigns 
the first relative trackybtlock to SAM files. Input is the assignement 
statements relating the lcegical SYSXXX devices used in CONVO0 to the 
disk packs and to the relative position in which the disk space must be 
located on each pack and the WORKDSK file of file definitions sorted by 
System/3 label. Output is the WCRKDSK work file, the indexed LABELS 
file with the disk location of files and data spaces and two listings; 
the first one is a list of files distributed among the disk packs, the 
second one is a listing of DLBLs and TLBLs. 


CONVO7 reads SYS-PACK-REL. POSITION statements and if an error is 
detected in these statements, the component should be executed again. 


The CONVO8 component creates JCLFILE file. Input is the sequential 
OCLFILE file of Systems3 CCL statements, the indexed LABELS file of file 
definitions and the indexed S3LABEL file of relationships between 
System/3 and DOS/VSE labels. Output is the indexed JCLFILF file of 
DOS/VSE execution control statements. 

CONVO8 creates the JCLFILE file containing JCL statements required to 
execute each converted program. The file is indexed, using as key the 
name of the program plus three digits (from 000 to nnn). 

THE CONV09_ COMPONENT 

The CONVO9 component produces a listing of JCL statements required to 
execute the converted programs and System/3 COPY statements with the 
corresponding listing of these statements. 

Input is the indexed JCLFILE file of execution JCL statements, and the 
indexed LABELS file of file definitions, and output is a listing of JCL 
statements, the COPY statements and a listing of the generated 
statements. 

The JCL statements are classed by program name and include: 

° // ASSGN statements 


. FCB printer statements, depending on the printer to be used and on 
whether POWER/VS is to be used: 


- // PAUSE * MCUNT CARRIAGE TAPE xxx (for 1403 with POWER/VS) 
- // EXEC SYSBUFLE (no 1403, no POWER/VS) 
- * $$ LST (nc POWER/VS) . 


The COPY statement, generated to those files defined with an R in column 
65 in CONVOO, include: 


® The $TINIT statements needed to initialize the tapes 
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° The System/3 $COPY tc cory disk sequential or indexed files to 
labeled tape files with a block length multiple of record length, 
but not greater than 4096. 


THE_CONV10_COMPONENT 


The CONV10 component generates AMS commands and Data Import Utility 
Statements and their corresponding listings. 


CONV10 processes the indexed LABELS file of files definitions twice 
sequentially and generates: 


° Master Catalog definition with the following data missing: 
- First relative trackyblock of the EXTENT 
- Pack name of the EXTENT 
- Pack name in AMS (data for the VOLUME keyword) 


e Data Space definition 
° Definition of clusters 
e Definition of alternate index and its corresponding path for ESDS 


files with type ~A 


° If the file definiticn statement used by the CONV00 component 
contained an R in position 65, it generates REPRO statements to 
copy the file from tape to disk. If the file is an EFSDS type A, it 
creates the corresponding BUILD INDEX statements 


e If the file definition statement used by the CCNV00 component 
contained a U in position 65, it generates Data Import Utility 
statements. 


The CONV11 component reads System/3 job streams and places them in the 
STREAMS file. Input includes the CARDS file of System/3 OCL statements, 
and the random access JCLFILE, S3LAPEL, and LABELS files. Output is the 
STREAMS file of partially converted OCL statements. 


CONV11 records each Systems3 OCL statement in its Original format and 
creates the corresponding DOS/VSE jceb control statement. Sort and copy 
statements are recorded in their original Systems3 formats, to be 
converted in later steps. 


/*, /&, and /. statements must be changed to */, &/, and ./ before 
executing CCNV11 in order to avoid an unwanted end-of-sterp. If an FOI 
statement is not changed, CONV11 can be executed again using the data 
cards not yet processed. 


CONV11 builds DLBL and TLBL statements from information in the following 
files: 


° JCLFILE, statements needed to execute each program 
° S3LABEL, linkage to the LABFLS file 
e LABELS, information concerning files for programs executed using 


other files. 
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THE CONV12_ COMPONENT 
The CONV12 component converts System/3 sort programs to DOS/VSE sorts. 
This is done by processing the STREAMS file created by CONV14. 


Input is the random access STREAMS file, and output is the same file 
updated with the necessary jok streams. 


A System/3 sort program cannot be converted if one of the following 
conditions exists: 


Errors in OCL statements 
References to an undefined file 
Name of input or output file omitted 
Specified and actual output record length not the same 
ALTSEQ specified and corresponding records missing 
' More than cne record type or INCLUDE/OMIT set 
INCLUDE and OMIT both present 
Forced control fields (F in position 7) 
Forced data character (V in position 8) 
zone portion used (Z in position 8) 
Digit fortion used (LE in position 8) 
References to a keyed outupt file 
Summary Sort without SUM fields or SUM fields in non-summary sort 
Sort without F statements. 


In order to execute the ccnverted sort programs, standard label 
information must be cataloged for work files and permanent logical 
device assignments should be made: 


// DLBL SORTWK1,0,SD 
// EXTENT SYS001,... 
ASSIGN SYS001,... 


If a numeric field is defined as D, it must be changed to C or U to be 
converted; sorts using the digit portion are not converted. 


The CONV13 component converts System/3 copy programs to DOS/VSE AMS 
REPRO command. Input is the random access STREAMS file, and output is 
the updated STREAMS file. 


CONV13 processes the STREAMS file created by CONV11 and CONV12. 


A System/3 copy program cannot be converted if one of the following 
conditions exists: 


Errors in OCL statements 

References to an undefined file 

Processing of unlabeled tape file 

Name cf COPYIN file omitted 

Error in copy specifications 

OMIT or DELET option used 

Select PKI used 

COPYFIILE statement omitted 

Output file other than disk, printer, or both 
COPYO file name omitted for output file. 


AMS REPRO is used to copy files. 
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THE CONV14 COMPONENT 
The CONV14 component creates the DOS/VSE job stream and lists it. Input 
is the sequential STREAMS file, and output is the DOS/VSE job stream 
statements and a listing of all Statements, converted and unconverted. 
Unconverted statements are accompanied by comments to explain why they 
were not ccnverted. Fach step read by CONV14 is listed. 


To execute CONV14, the STREAMS file must have been created and updated 
by CONV 11, CONV12, and CONV13. 


Positions 1 and 2 of each record of the STREAMS file contains one of the 
values shown in Figure 3. 


a ae a ee ee 7 
| After execution of CONV11 Before execution of CONV14 | 
| Step cconverted Step not ccnverted | 
| | 
| 10 10 11 | 
| 11 11 11 | 
| 12 16 11 | 
| 13 15 11 | 
| 14 15 11 | 
| 15 15 16 | 
| 16 16 16 | 
| 17 17 11 | 
| 18 10 11 | 
| 19 10 11 | 
| 2n 2n 2n | 
| 3n 3n 5n ! 
un un 5n | 
| 5n 5n 5n | 
| | 
{ 11 Not converted | 
{ 16, 2n, 5n Ignored | 
{| 10 Load | 
{| 15 COS/VSE format (created and listed) | 
{| 17 Listed, kut not created (statement omitted) | 
ben nnn nn ann nen one ee ee J 
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WORKDSK FILE 


TYPE 


Type 


APPENDIX B. LAYOUT OF RECORDS OF MAJOR FILES 


DIRECT ACCESS, LENGTH 128) 


1 = A (CONVOO, CCNVO1, CCNV02, CONVO7 components) 


— 
ll 


1 
2-30 
31-33 
34-36 
37 
38-39 
40-42 
43-44 
45-46 
47-49 
50-53 
54-57 
58-59 
60-63 
64-67 


68-71 


72-74 
75-77 
78-80 


81-82 


83-84 
85-88 
89-92 
93-96 
97-100 
101-104 
105-108 
112 
113-120 
125-128 


A identifier 
last relative record 
Logical SYSXxx device used 


B (CONVO0, CONVO1, CONVO2, CONVO7 components) 


PB identifier 

Label 

Block size or control interval size (packed) 
Record size (packed) 

File tyre 

Key length 

Key location (packed) 

Percent free control intervals 

Percent free control areas 

Logical SYSXXxX device 

Validity period in days 

Number of records (packed) 

Application initials 

Number of records in prime data area (packed) 
Number of records in free space of control 
intervals (packed) 

Number of records in independent free space of 
control area (packed) 

Number of data records in control area (packed) 
Number of index records in control area (packed) 
Number of alternate index records in contrcl area 
(packed) 

Number of control intervals per control area 
(packed) 

Number of free control intervals per control area 
Number of data contrcel intervals (packed) 

Number of index control intervals (packed) 
Number of alternate index control intervals (packed) 
Number of data tracks/blocks (packed) 

Number of index tracks/blocks (packed) 

Number of alternate index tracks/blocks (packed) 
Destination 

Systems3 lakel 

Index control interval size (packed) 
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LABELS FILE (INDEXED SEQUENTIAL, LENGTH 128) 


Type 1 = alphabetic (CONV01, CONV08, CONV09, CONV10, CONV11, components) 


1-29 Label 
30-32 Block size or control interval size (packed) 
33-35 Record length (packed) 
36 File type 
37-38 Key length 
39-41 Key location (packed) 
42-43 Percent free control intervals 
44-45 Percent free control areas 
46-48 Logical SYSXXX device 
49-52 Validity period in days 
53-56 Number of records (packed) 
57-58 Application initials 
59-62 Number of records in prime data area (packed) 
63-66 Number of records free space of control 
intervals (packed) 
67-70 Number of records in free space of 
control area (packed) 
71-73 Number of data records in control area (packed) 
74-76 Number of index records in control area (packed) 
77-79 Number of alternate index records in contrel area 
(packed) 
80-81 Number of control intervals per control area (packed) 
82-83 Number of free control intervals per contrcl area 
84-87 Number of data control intervals (packed) 
88-91 Number of index control intervals (packed) 
92-95 Number of alternate index control intervals (packed) 
96-99 Number of data tracks/blocks (packed) 


100-103 Number of index tracks/blocks (packed) 
104-107 Data relative trackyklock (packed) 

111 Destination 

1712-119 Systemys3 label 

120-125 Fack name 


Type 1 = 0 (CONVO1, CCNVO7, CCNV10 components) 
1 0 identifier 
2-4 Logical SYSXXX device 
32-35 Pack name 
36-42 Relative track/block position 
43-49 Number of tracks/klocks per data space. 
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PROGRAM FILE AND CCNVO2 WORKDSK FILE (LENGTH 728) 


Type 1 = 1 (CONVO2, CCNV03, CCNVO4, CCNVOS, components) 


1 1 identifier 
2-46 Relative record number of first statement 
2-6 H statement (CONVO2, CONV03, CONVO4, CONVO 5) 
7-141 F statement 
12-16 E statement 
17-21 L statement 
22-26 I statement (CONVO2, CONV03, CONVO4, CONV05) 
27-31 C statement 
32-36 C-LX statement 
37-41 C-SR statement 
42-46 Cc statement 
47-96 Relative record number of first statement in table 
‘47-51 1 
52-56 2 
57-61 3 
62-66 4 
67-71 5 
72-76 6 (CONV02, CONV03, CONVO5) 
77-81 7 
82-86 8 
87-91 9 
92-96 10 
97-101 Relative record {CONVO2, CONV03, CONVO4) 
number of /* 
statement 
102-106 Relative record (CONVO2, CONV03 -- input) 


number of last record 
of takle 10 


102-103 Free indicator 1 (CONVO3 -- output, CONV04) 
107-111 Relative record (CONVO2 -- output, CONV03, 
number of last CCNV04, CONVO5) 

record of source 
program 
128 1 if ESDS file accessed via relative record number 


Type 1 = 2 (CONVO2, CONV03, CONVO4, CONV05 components) 


1 2 identifier 

2-121 Names of files used (CONVO2, CONVO03) 
in program 

2-9 

10-17 2 

18-25 3 

26-33 4 

34-41 5 

42-49 6 

50-57 7 

58-65 8 

66-73 9 

74-81 10 

82-89 11 

90-97 12 

98-105 13 


106-113 148 
114-121 15 


2-66 Errors detected in (CONVO4, CONVOS5) 

program 
122 Auto Report (CONVO2, CONVO4, CONVO05) 
123-128 Program name (CONVO2, CONVO4, CONVO05) 
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Type 


Type 


Type 
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1 = 3 (CONVO2, CONVO3, CONVO4, CONVO5 components) 


1 3 identifier 
2-30 Label (CONVO 2) 
31-33 Block size or control (CONVO2, CONVO4) 
interval size (packed) 
34-36 Record length (packed) (CONVO2, CONVO4) 
37 File type (CONVO2, CONVO4) 
38-39 Key length (CONVO2, CONVO4) 
40-42 Key location (packed) (CONVO 2) 
43-44 Percent free control (CONVO 2) 
intervals 
45-46 Percent free control (CONVO 2) 
areas 
47-49 Logical SYSXXX device (CONVO2, CONVO4) 
104-111 File (CONVO2, CONV03, CONVO4) 
113-120 System/3 Label (CONVO2, CONVO4) 


1 = 4 (CONVO2, CONV03, CONVO4, CONVO5 components) 


1 4 identifier 
2-81 Source program statement 
82-101 Flagged errors (CONVO2 and CONV03 -- output, 
CCONVO4, CONVOS) 
92-97 Table statement (if (CONVO3 -- input) 
present) 
102 If RAF present (CONVO3, CONVO4) 
104-105 Record length in F (CONVO 4) 
statement 
106-124 Information about FE 
statement 
106-108 Old entry length (CONVO2 and CONV03 -- input) 
109-111 Cld record length (CONVO2 and CONV03 -- input) 
412-114 Old number of records (CONVO2 and CONV03 -- input) 
115-117 New number of entries (CONVO2 and CONV03 -- input, 
per record CONVO4) 
118-120 New record length (CONVO2 and CONVO3 -- input) 
121-123 New number of records (CONVO2 and CONVO3 -- input) 
124 Flag 20 (CONVO2 and CONVO3 -- input) 
124-128 Relative record number (CONVO3 -- input, CONVO04) 
or record type 3 in F 
statement 


= 
WW 


5 (CONV02, CONV03, CONVO4 components) 


1 5 identifier 

2-81 If blank, source (CONVO2, CONVO3, CONVO4) 
statement added 

7 If F, F statement for (CONVO 2) 
new takle file 

16-17 IT 

82-101 Flagged errors (CONVO 4) 

82-83 1 

84-85 

86-87 3 

88-89 4 

90-91 5 

92-93 6 

94-95 7 

96-97 8 

98-99 9 

100-101 10 


Type 1 = 


1 


6 (CONVO2, CONV03, CCONV05 components) 


6 identifier 


2-3 7* -- last source program statement 
Type 1 = 7 (CONVO2, CCNVO4 components) 
1 7 identifier 
2-81 // COPY or Auto Report control statement 
82-83 Flag 18 
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Type 


Type 
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1 = A (CONVO6 component) 


1 

2-7 
8-9 
10-16 
17-24 
25 
26-29 
30-33 
34 
35-42 
43-48 
43-48 
49-51 
52-56 
57-59 


= 


10-12 
13-15 
16-18 
19-21 
22-24 
25-27 
28-30 
31-33 
34-36 
37-39 
40-42 
43-45 
46-48 
49-51 
52-56 
57-59 


A identifier 

Name of source program 
Sequence number 

File name 

Old file name 

File type 

Block length 

Record length 
Processing type 
System/3 label 

System/3 label 

Logical SYSXxXX device 
Physical device address 
Relative record number 
Number of FCB phase for print file 


(CONVO6 component) 


B identifier 

Name of source program 
Sequence number 

Forms length 

Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 10 
Line number of channel 11 
Line number of channel 12 
Relative record number 
Number of FCB phase 


NO 


WOAYDU EWN wa 


CONTROL FILE (LENGTH 64) 


Type 1 = A (CONVO4, CONVO6 components) 


1 
2-7 
8-9 
10-16 
17-24 
25 
26-29 
30-33 
34 
35-42 
43-48 
49-51 

"52-56 
57-59 


Type 1= 8 


2-7 

8-9 

10-12 
13-15 
16-18 
19-21 
22-24 
25-27 
28-30 
31-33 
34-36 
37-39 
40-42 
43-45 
46-48 
49-51 
52-56 
57-59 


A identifier 

Name of source program 
Sequence number 
DOS/VSE file name 

Old System/3 file name 
File tyre 

Block length 

Record length 
Processing type 
System/3 label 

Logical SYSXXX device 
Physical device address 
Relative record number 
Number of first FCB 


(CONVO4, CONVO06 components) 


PR identifier 

Name of source prcgram 
Sequence number 

Forms length line number 
Line number of channel 12 
Line number of channel 1 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 
Line number of channel 10 
Line number of channel 11 
Line number of channel 12 
Relative record number 
Number of first FCB 


WOAKDNEWN 


OCLFILE FILF (LENGTH 64) 


Type 1 = A (CONVO6, CCNV10 components) 


1 
2-7 

8-9 

10-16 
17-24 
25 

26+ 29 
30-33 
34 

35-42 
43-48 
49-51 
52-56 
58-60 


A identifier 

Name of source program 
Sequence number 

DOS/VSE file name 

Old Systems3 file name 
File tyre 

Block length 

Record length 
Processing type 
System/3 label 

Logical SYSXXX device 
Physical device address 
Relative record number 
Number of FCB phase for print file 
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S3LABEL FILE (LENGTH 64) 


CONVO1T, CONVO8, CONV11 components 


1-8 System/3 label 
9-37 DOS/VSE lakel 


JCLFILE FILE (INDEXED SEQUENTIAL, LENGTH 128) 


Type 1 = 1 (CONVO8, CCNVO9, CCNV11 components) 


1 1 identifier 

2-7 Name of prograr 

8-10 Sequence number 

11-60 Image of JCL statement 
128 * if //7 EXEC statement 


Type 1 = 2 (CONV08, CONV09, CCNV11 components) 


1 2 identifier 
2-7 Name of program 
8-10 Sequence number 
11-43 Logical SYSXXxX devices 
11-13 1 

14-16 2 

17-19 3 

20-22 4 

23-25 5 

26-28 6 

29-31 7 

32-34 8 

35-37 9 

38-40 10 

41-43 11 

44-54 Assign types 
ay 1 

45 2 

46 3 

47 4 

48 5 

49 6 

50 7 

51 8 

52 9 

53 10 

54 11 

55-120 Pack names 
55-60 1 

61-66 2 

67-72 3 

713-78 4 

79-84 5 

85-90 6 

91-96 7 

97-102 8 

103-108 9 

109-114 10 

115-120 11 
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Type 


1 = 3 (CONVO8, CONVO09, CONV11 components) 


; 
2-7 
8-10 
11-17 
18-25 
26-29 
30-33 
34 
35-36 
37-40 
41-48 
49-77 
78-81 
82-85 
86-88 
89-94 
95-98 
99-105 
106-112 


3 identifier 

Name cf pregram 
Sequence number 
DOS/VSE file name 

Old Systemy3 file name 
Block length 

Record length 

File type 

Key length 

Key position 

Systems3 label 
DCS/VSE lakel 
Auxiliary label 
Validity period 
Logical SYSXxx device 
Pack name 

File type 

Data tracks/blocks 
Data relative track 


STREAMS FILE (LENGTH 128, CONV11, CCNV12, CONV13, CONV14 COMPONENTS) 


Type 


Type 


1 = 1 (Image of source program statement) 


1 
2 


3-98 

99 

100 

101 
102-107 
108 


109-110 


123 
124 
125-126 
127-128 


1 identifier 

Statement type: 

0 - LCAL (except for Sort and Copy programs) 

1 - Not converted 

2 - System/3 provisional (to be deleted or printed 
as not converted) 

- Systems3 conversion pending 

- Common to System/3 and DOS/VSE 

- Systems3 format 

Deleted 

- To be printed as ignored 

- LCAD (for Sort programs) 

- LOAD (for Copy programs) 

Image of source program statement 

Blank 

Skip (1 for LOAD and CALL statements) 

EXEC (* for each program to be executed) 

Frogram name 

Number of statement not converted (PAUSE, DATE, 

SWITCH, JOR) 

For free format, position of the first character of 

parameter 

Previous step not converted 

This step not converted 

Previous step error 

This step error 


ODN HAU SW 
1 


1 = 2 (Separator between OCL Statements and Sort and Copy control 
statements) 


1 
2 


1 identifier 
Frogram: 

1 - Sort program 
2 - Copy program 
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Type 


Type 


Type 
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1 = 3 (ASSGN statements) 


1 

2-37 
38-109 
110-121 


3 identifier 

Array of up to 12 logical SYSXXxX devices 

Array of up to 12 physical device addresses 
Array of up to 12 device types (U = unit record, 
T = magnetic tape, blank = disk) 


1 = 4 (DLBL and TLBL statements) 


1 


4 identifier 


2-8 File name 

9-37 Label 

38-41 Auxiliary label (path or alternate index) 
42-45 Validity period in days 

46-49 File type (SD, SVL, VSAM) 

50 Type. (S, Vy. Ty Re By Re Al 
51-53 Logical SYSxXXxX device 

54-59 VOLID of pack or tape 

60-66 Data relative track 

67-73 Number of data tracks 

74-78 Block length 

79-83 Record length 

84-85 Key length 

86-90 Key location 

1 = 5 (Additional record for future use) 


5 identifier 


APPENDIX C. EXECUTION OF SAMPLE PROBLEM 


toe & & CARDS USED IN THE CUSTOMIZATION * * * * 


/f LPAN 
// RUN 


// CLEAR FROM-915,PACK-DIDIDOL,ARFA~CONVER y TYPF-FORCE 


Sf END 
/f LOAD 


ESCOPY,FL 


PDCOPY,F! 


7/ FILE NAME-RACKUP UNIT-TL,PFEL-NL 


ff RUN 


/f CBSYPACK TO-RL 


tf ENN 
Pf LAD 


/f SWITCH 


CSTISL,PL 
10001000 


/f/ FILE NAME-CAPDIN,UNIT-2 1,PACK-CONVER, TRACK S-2 


Sf PUN 
CHVMECUL 
FUTFRA 


EQUTAPE 


DISK40 TAPE 


4E4GY3A2032-5 
FOQUDT SK 45 


FRA 
TAPE 


DISKFT 91000 


000280 


FQUPRINTEFPPINTER L32LSTOOF 


FQOUMF CSL 


EQUMF CU? 


FQUMF CII? 
/* 

Jf LEAn 
df FIle 

f/f FILO 

Jf PUN 


ww ee 


7/ A.OAD 
{/ FILE 
(7 RYN 
FSAM FTL 
FKSOS.FI 
FESNS FI 
FSAM FTI 
/* 


PEANN 
FDA 
OISKET 


CSTIS2,R 1 


IPTONC 


S609LDOA 


NAME-CARDIN,UNIT-?8 1,PAC K-CONVER gRETAIN-S 
p 


MAMET -—SOURCE gUNIT- 


PNP UT 


CONVOO,R 1 


1,PACK-CONVER 


SAMPLE CARDS *& * & OX 


NAMF-WORKASK,UNTIT—-9 1 yPACK-ALNLDL gLOCATION-20, TRACKS —-20 


e 4 
Ir? 
LFA 
EF 4 


208 092 
30K05 11515903 
20F 003 
20S 992 


LOOOSMPFILFI 
2000SMUFILE2 
Z000SMNFEILE3 
4QOOOSMNFILE4 


51 


// LOAD CONVOL,RI 
(/ FILE MAMFE-WORKDSK sUNIT—-D LyPACK-D1D191 ,LOCATICN-20, TRACKS-30 

(/ FILE NAMF-WORKOS 1yUNIT-D1,8ACK-D1D1D1 ,LOCATIGN~20, TRACKS—39,LABEL-WORKDSK 
// FILE NAME~S2L ABFL UNI T-D 1 pPACK-DIDLDL gLOCATICN-22,TRACKS-10 

f/ FILE NAMP-LARFLS,UNTT-91,PACK-DIDIDIL,LOCATICN-21 19,TPACKS-10 


// RUN 


// 1.040 CONVO?,PL 
J/7 FULD MAME-WORKDSK,UNTT-9 1 ,PACK-DLD191,LCCATICN~20, TRACKS—39 
// TILT NAME-PROGRAM,UNIT-91,PACK-DIDLDLyLUCATION-22 19, TRACKS—-50 


i 


FILe SAM FILE J 
Fite? KSOS.FILF 2 


/t 

ui C 
FOARND 
FRILF] 
FF ILE? 
IC Aen 
q 
C OY 
ay P 
CLe& 
Che > 
CLR 
CLF 
CLR 
r1 9 
cl © 
CELE FL 

-t 


TIF? 


St ey oy) od 


(% 


16 J 
TP 96 G4 
Q P49 29 
a PT) 320 O5AT 1 


NS Ol SNC 


STTCN 
{PTAGL TAG 
NUMB COMP LAST 
GAT LeRTAG? 
NEIMB ADD 1 
SETON 
EXCPT 
GOTU LKTAGY 
LE TAG? TAG 
c 2 
NUMB 7 
cc V2 
NUMA Z 
NUMB 7 


// LEAD CONVO2,P] 
JE SIUUE NAMP-WORK ASK UNTT-9 1, PACK-DLOLIL LUCA TIGN-294 TRACKS—29 
// FILE NAME-PLOGRAM,UNIT-D 1,PACK-DIP LIL LOCATION-22 10, TRACKS—50 


/f SUN 


FILE) SAM FILE } 
FY F2 KSOS.FILFe 
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MET) 


DJISK45 
DISK45 


NUM& 


Ne 
ou 


SELLE 


‘FILE 


SAMPL 1 


SOLAST 
LR 


02 


03 


1 - RECORD" 


2 - RECORDS 


H Cc 16 J SAMPL 2 


FETLFL. oP 240 20 DISK45 

FFILF2 C 240 30R05AT 1 DISK45 

FLIST Q 120 120 OF PRINTER 

TEILEL NS 92 

I 1 20 TEX1 
I 16 290NUMB 
IFILF2 NS 92 

! 11 30 TRX2 
C  ft rUMB CHATNF ILE 2 03 

PLIST 9 396 19 

A aR OF 

c 35 "HEADER® 

(2 y Oo} 

e TEX] 25 

f TEX? 55 

fq 7 60 LB 

f 34 "FENN! 


/* 

Jf LOAD COMVO2,P I 

Sf FILS NAMFAMCR KIOSK SUN TT-D1gPACK-ILOLOL LUCA TIUN=29, TRACKS -30 

// FILE NAMP-PROGEAMSUNTT-“DL,PACK-OINTOL,LOCATION-22 19, TRACKS-59O 
Sf SAN 


Fird ESAS.TILES 
B c oYA J SAMPL 2 
ECARD To GS&  4E MP CU] 
FFILA I TC P40 POL QSAT 1 NYSK45 
FL TST ( 1209 120 UF PRINTEP 
TC ABD MS. > Vd 
J 1 SOMYM 
IF TLE NS 9? 
! f 20 TEXT 
C muae CHATNF ILE 1 0% 
CLUst YL OL 92N03 
nm NUM Z 5 
c TEXT 2) 

/* 


{7 AURA COMYOR,E] 
{/ FILE NAMP=PERGEAM,UNTT=9 Ly PACK-O19DLD1 
ff FVLE NAME -DEOGR,UNTT=21,PACK-91D191,LARFL-PRGGRAM 
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// RUB 


// LOAD CONVO4,FL 

JP FILE NANE~PPROGEAM,SUNTT-91,PACK-DLDID 1, TRAC KS—50, LOCATICN-22 10 
/f FILE NAME-CONTPCL gUNTT~91,°ACK-9 10191, TRACKS-1O,LOCATICN-25 
// BUN 

oo7 

/* 

// ACAD COMVYOS,RL 

// FILE NAMP-PRAGRAM,UNTT=91,PACK-RIN LD 

/f GIN 

f/f ACAD COMVOE,PL 

[/ FILE MAME CONTROL UNTT-O1,PACK~21D191 gRETAIN-AS 

ff FILE NAME-PEOGPAMSUNTT-91,PACK-D LOLOL PETAIN-S 

J/ FUL NAME-OCLFE IL E,UNTT- 1, PACK-DLID TOL, TRACKS-L0,LECATION-25 19 
tf Riya 

// LOAD CONVOT,PL 

f7 PILE NAME-YOPK DSK yUNTT=-91,°9CK-31DIIL RE TAINAS 

JA FULD NAME-LABFLS,UNTT-91,PACK-D19191 

Sf FILC MAME-L ABEL SLYUNTT-91,°ACK-OLILOL LASEL-LABELS 

Af REYN 

BdAVOL AY] 352 

ONAVILAA? TNO 

// LTAD CPNVO®,I 

// FUE NAMESOCCLE IL ESUNET-21,°ACK-919101 

// FILE MAMP-=S3LAREL ZUNTT~91,°ACK-PINLD] 

/f FILO NAMF-LAQTE SSUINTT~D1,PACK-DLD191 

Jf FILE BMAE-SCLE IL Py UNTT=91,°ACK=DIDIDLy TEACKS-29, LECATION-26 
{f/f QUIN 

// Leagan COMYIG,RY 

// PILE NAMPEASOLE ILE SUNTT=91,)2°ACK-P LOLOL 

// FILE NAME={ APELS,ZUNTT=-91,°2ACK-O19101 

Sf RYN 

4/ LEAD CONYIO,E) 

// FILE NAMO-LACFL SUR TT-91,PACK-D L019] 

JP FTLE NAMP-LAPEL ST SINT TH 1,PACK-DLD191 »LAPRPL-LAROLS 

Sf oyy™M 

{ft CAD CONVALIL,EL 

[/f FSU NAMEALASELS UNE TA91 ,PACK-919 79] 

Lf FILE NAME-JSCL ETL Ey UNTT=-91,PACK-PLDLOL 

Sf FILE RAMT HSU ABEL ZUNTT=-91,°PACK-OLDL9? 

Lf CULE NAMEASTRE AMS, UIMET-91yPACK-DLO LIL, TRACKS-29, LOCATION-027 900 
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ff 
/f 
Sf 
Jf 
Mf 
If 
/f 
/f 
// 


// 
Mf 
4/ 
// 
tt 
V1 
I/ 
// 
// 
// 
bt 


RUN 
LOAD SAMPLI,RI 
SWITCH fCOO0LCN00 
DATE 101278 
FILF NAME-F ILE ?,UNIT-D1L,PACK-DIP IDOL, FRACKS-1C 
FILED NAMF-~F ILE 1,UNTT-91,PACK-41D LDL, TRACKS—1 O,LABEL-FILE4 
RUIN 
LOAD FNSMRT,RI 
FILE NAME-INCUTZUNTT-~91L,PACK-D1N191,TRACKS-10,LABEL-FILEL 
FILE  NAME-OUTPUT,UNTT-91,PACK-DINLOIL, TRACKS—1 O,LABFL-FILE3 
RUN 
HSQRTP 5A S$ X 20 
SFQ. FAR 


Pe Yo CONE 
FN LS 
Foc’ 26 
FOC b 15 
FAC 16 29 

FND 


LOAD SAMOPL CGF L 

FILE NAME-FE TL ED, UNTT-O1,PACK-DINOLIL, TRACKS—-10,LABFL-FIL FS 
FILE MAME-F ILE O,ZUNTT-91 ,PACK-DLOLIL, TRACKS-19 

RUN 

LEAD KASORT,RL 

FILE NAME-INPUT,ZUNIT-9LyPACK-DICD IDOL ,LABEL-FILFS 

PIER MAM E-OUTE UT SUNT TA91 yPACK-DIDIDL, TRACKS-1LO,VLAPFL-FILEL 
RUN 


ESCETE 5A X 70 
ENn l 5 
FOr 1 39 

EMA 


LUAM [COPY AFL 

FILE NAME-COPYIN,UNIT-DL,PAC K-DIDIDL,LABKFL-F IIS 
RUIN 

COVE TEL CUTPUTH-PP INT 

SELECT KEV,FROM-# 900128 

PND 

LOAD SAMPLE 32,P1 

FYLE NAMFE-F ELE T,UNIT-DL,PACK-OLD IDL yLABFL-FILE3 
PAIN 

LOAN ©CNPY,R] 
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// 
// 
// 
// 
// 
is 
Li 
/f 
/f 
/f 
Ad 
Jf 
/f 
// 
// 
// 
ff 
tf 


x 


= 


FILe NAME-COPYIN,UNIT-F1 »PACK-FLF LE 1, TRACKS-1L0yLABEL-FILE2 
RUN 

COPYFTILE QUT? TX-PR INT 

SFLFCT KFY,FROM-fQq0) 26 

rN 


LOAD COMVI2,R1 

FILE NAMF-STPEAMS,UNIT-01,PACK-DIP INI 

FILE NAMF-STREAML,UNET-91,PACK-0 LY LDL gLABCL-STREAMS 
RUIN 

[RAD CONVIA,PL 

FILE MAMFE-STPEAMS,UNTT-D1,PACK=D1LOLDL 

PILE NAME-STREAMIUNIT-D1,PACK=DLDIOL gLAPEL-STREAMS 
RUN 

IAD CONVL4,R IT 

FILE NAMO-STREAMSSUNTT=91,°ACK-DIDLOL 

FILE SAME-STKEAMTSUNTT-D1yPACK~D IN 191 gLABLL-STREAMS 
PUR 


ay 
* 


CUTPUT SAMPLE CARS x & & # 


UE JOB INMESAMPL ITY CLAS S=9 


// SOB SAMPLY COMPIEF ANY LNKEDT 


J 
// 


COTTON CATAL 
PRAST SAMPLT,¢ 
FKEC EPOTI,ST7bS&4K 


JIA LAb J 

NPOLOFO ALN re r 49 FEANCL SYSTPT 
APOQOEF TL PY fi BILOO6 206 FEA SYSOBIS 
MPOASERTLE 2. ig 30 KS95 

QBOLITOCARD Ro 9] SNC 

NANO] 1 SOLAST 
N40 Lac Ny SFPTON LP 
N40 2 9FLY Le TAG) TAG 

NAC AOTL NIIMB COMP AST 62 
PACGOCEE OD GET URTAG?2 

N4esacy e Bip yMT ANDY } HUMP 59 
N4OFOCLE SFTAN O32 
DEO 2OC Te EXEPT 
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SAMPL 1 
SAMPL 1 
SAMPLI1 
SAYOL 1 
SAMPL 1 
SAMPL 1 
SAMPL 1 
SAMPL } 
SAMP( 1 
SAMPL ] 
SAMPL 1 
SAMPL 1 
SAMPL 1 


O408NCL® GOTC LRTAGL 
O4090CLR LRTAG2 TAG 
OSOLOMFILFL F O32 
asa2nc 
950307 
OSO040NCFEIL FO F 02 
059500 
o5060n 
o5e70r 
/* 
/f EX FC LNKENT,SI7ZF=64K 
75 
* ROEOG 
€ PR JOR JNM=SAMOL OSCLASS=0 
// JOP SAMPL? COMPTLE AND LNKEDT 
// OPTTOM CATAL 

PHASE SAMPL 24S 
{f/f EXEC FOGIISIZE=44K 
N1O10H J 
NPOTOFFILFI IP FIONN 20 
NIOPOFE ILE? C F 20P SA 
G2O70FL TST 2 FE 122 OF 
NB01L0OL* OLEAFLOOED] 
NG01LOTFILGL NS 2 
040201 
N40301 
N4040 IT ILE? NS 92 
N4N507 
O5010C M1 NUMB 
O6O1LNOOLIST y  3any LP 
Nanonr oe OF 
960397 
N6O4N0 yo o1 
OAC SOS 
AorBNe 
N46C7OL T 12 LB 
O6080N 
{/% 
Sf FYEC LEME ERT SIZE =64¢ 
18 
* fee FOS 
* PR JOR INM=PRECRIAOLT,CLASS=9 


NUMB 72 


NUMB 
NUMB 7Z 


Ne 


CHATNF ILE? 


TEXL 
TEX? 


LS 
20 


5 
30 
25 


FRA 
KSONS 


"FILE L -— RECORD! 


‘FILE 2 - RFCCRD* 


SYS09258 


PRINTERSYSLST 


20 TEY¥] 
lé 20O0NUMB 


1} 30 TEX2 
93 


"HEADER? 


SAMPL 1 
SAMPL1 
SAMPL 1 
SAMPL 1 
SAMPL IL 
SAMPL 1 
SAMPL 1 
SAMPL 1 
SAMPL 1 


SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 


OGO1L2SAMPL 2 
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SAMPI. 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL ? 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 


// JOR FRFCPOOL ASSEMBLY AND LINKEDIT 
// OPTICN CATAL 
PHASE FRFCROO1,+0 
// EXEC ASSEMBLY,SIZE=64K 
FRFCRONL CSECT 


DC 
bc 
DC 
AC 
DC 
NC 
END 


/* 


XP OHONNDNCCOAIGCOCONONLCONCONGONCODNNNNNOONNDOONADDCOON! 
X*CoooNcoeOoNNLNCoCAnEOCEOODNCNGOCOONDNDNODONNDDNCOONCONNO? 
X*00000001090C0NC0C 00090900001 COCOHDDDNDDNDNDNDDNHODODONDNN! 
xP coocoorn00nnccannocacerceccoaccoonDN0NOOV0ONND0ORNNND 
XP CONODOCONNGIOIOONN', XLBO'COT,CLS® & 

CLT75*FRECBCOL LOAMREN! 


//f EXEC LNKEDT,ST7&=64K 


16 
* RR EY 
* TAPOAOLT TH 


CRPY S 2 SFILEL® TO NEW P'SAM FILE Pt Type s 


J/ LOAD PTINIT,FL 


// RUN 


Sf vet UNTT~T1,TYPF-CLEAR sREEL—TAPOOL,IENSTTY-LENO 


Jf END 


// LOAD BCOPY, FL 


/T FILE NAMF- 


COPYIN,LABEL-FILFL,UNTT-  ,PACK- 


/f FILP NAMF-COPYU,LABFL-FILEL,UNIT-T1, 
// PEFL-TAPOOLySLKL—4080,2FCL~20,RECEM-FB 


ff PUN 
J/ COPY TILE 
ffm 
#8 & OEE INT 


GUTPUT-FILe 


MACATAL. MASTER.CATALDG * * ¥ 


J/ OLFL LUSYSCT, "MASTEL SCATALOIG*,9999,VSAM 
J/ FXTEMT SYSCAT, st a 1256 
4/ FXEC TSC AMS, ST7©°=AUTO 


NE RINE 


/% 
kok Re OCR INE 


MCAT 

(NAME CMASTER BCATAL IG )- 
FILE CLISSYSCT)- 

BLOCKS (256 )- 

VCLUMEC ) 


SPACE VVOLOO2. IATA CSOACE LLOINNDOGOLL.SPAC F * # 


/f ASSGN .SYSOG3,F PA gVGL=VOLOO2, SHR 
JP OLRL DOATASD, EVVOL OOP LDATAS SPACE ALO M0005 Jel e SPAC 449999, VSAM 
fT FXTENT SYS003_YOL907 944794, 229 
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// EXFC IDCAMS,SI7F=AUTO 


DEFINE 


/* 


SPACF- 

(BLOCKS (320)- 
FILE(DATASP )- 

VOLUMES (VOL002))- 
CATALOG(MASTFER.CATALOG) 


ee * OEFINE ESNS FSDS.FILE3 * * * 
J/ EXFC INCAMS,SI7F=AUTO 


DEFINE 


/x 


CLUS TER- 
(NAMECFSYS.FILE3)— 
VOLUME S(VOL902)- 
FOR(90)- 

RFCS7(20 20)- 
C1S7(1024)- 

SPFFD- 

RECORAS(3200 RNO)- 
SHP ( 2)- 

REUSE- 

NIXD)- 

NATA= 

(NAME (FSOS.FILE3.LOONCDNOWLCCOOCOO.NATA))- 
CATALGG(MASTER CATALOG) 


ee KE NEFINET KSOS KSOS.FILE? * * * 
/f EXPO TICAMS,SIZE=AUTO 


DFFEINE 


ChUSTER- 
(NAMFOCKSDS.E TLE? )- 

VOLUMES (VOL902)- 

FORK (60)- 

PFES7(3) 39)- 

SPFED~ 

SHR (2)- 

FSPC(L2 12)- 

KEYS(5 0O))- 

NATA- 

CNAME (KSDS FILE 2.2L ONO0OCO.LOCCOCOO.DATA)- 
RECOPDS (2640 406)- 

C1S87(€1024))- 

INDE X= 

(NAME (KSOS.FILE 2 -LOOCOCNC.LOOOGONON. INDX)- 
C1S2(512))- 
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; CATALOG(MASTER CATALOG) 
* 
* * © DATA IMPORT UTILITY TO COPY FILE KSDS.FILE2 * *& * 
// ASSGN SYS004,3340,VNL= 
(f ASSGN SYSOQO7,FRA sVOL=VGL002, SHR 
// OLBL OUTPUT, *KSOS.FILE2" 460, VSAM 
// EXTENT SYS097,VELC02 
// EXEC S3NATA,SIZE=AUTO 
J/ FILE NAME-FILE2?,PACK- 
i QUT SLPL-CUTPUT,AM-VSAM 
e 
ee e RUPPO TO COPY FILE SAM FILE 1 * * & 
// ASSSN SYSO04,TASE,VOL=TAPOOL 
// ASSGN SYSO005,FRA,VOL=VGLOO1, SHR 
// TLPEL TAPEIN, *FILEL*,, TAP NO] 
// OLS FILEOUT, 'SAM FILE L!',30,s9 
// EXTENT SYSOD5,VOLONI,», 252,44 
{f/f EXEC IPCAMS,SI7FSAUTO 
FE DUNO INT TLE (TAPS IN- 
Feuy- 
(KFCFM CFR )- 
RBLKS7 (4980)- 
PFCS7(20)- 
POEV (24909) ))- 
OUTFILECE LE fQur- 
PAY 
(eR rope (ep jy- 
RLKS7 (L990)- 
PECS?7 (20)- 
POEVCFBA))) 


ee * SAMPL IT FYECUTION * * * 

/f PST ann1d9009 

SL PATE 10/17/78 

/f ASSGN SYSIPT,X*'90C! 

Jf &SSTM SYSCOP,FPRA,VOL=VOLONN1,SHR 
Jf ASSGN SYSOO4,F 9A ,VOL=EVOLOO?, SHR 
Jf OLE FILE Ly *SAM FILE 47,129,59 

Jf EXTENT SYSDOASVOLOO]L g 994159192 

Jf OLFL FILE Py *KSOSLE ILE 2), 60,VSAM 
Jf FRTENT SYSOCOAAYEL ON? 

f/f FXEC SAMNPL 1,ST76=AUTS 
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* e * SORT FXFCUTION * * *& 
//1 ASSGN SYSOO?,FRA,VCL=VNLOO2, SHR 
// ASSGN SYSO003,FS8A,VOL=VCLOO1L, SHR 
// OLEL SORTOUT,* FSDSeFILE 34,90, VSAM 
// EXTENT SYSO002,VOL002 
// DLPL SCRTIN1,°SAM FILF 14,30,SD 
// FXTENT SYSO03,VOLOOLs 95 352964 
// FXFCO SORT,SIZE=64K 
CPTTON PRINT=ALL » SOR TWK=001,SORTOUT=CO?2 sSORTIN=0038 
ALTST. CANF=(FAFRB) 
INCLUDE COND= (1,2,A9,NE,C0? ') 
SORY FLTELNS=(1,5¢7D,A)e,FILES=!) yWORKE=L 
PECORM TYPE=F,t ENGTH=(279) 
INPFIL BLKSIZF=1000 
CUTE © SNS,REVSE 
END 
/* 
* * Ok SAMPL? EXFCUTION «© * * 
// ASSGN SYSLST,X*OOF# 
* FR LST FORS=FRFECROOL,LST=SYSLST 
// ASSGN SYSOD?,FEAsVCL=VOLON1, SHR 
// ASSGM SYSOG2,FRA,VEL=VOILOO2, SHR 
/f/ ML2L FILF1,'SAM FILE 4°,12C,59 
/f FXTONT SY¥SOO2,VOLOOls 294165192 
/f MLEL FILE, KE SPS.CFILE 2" ,60,VSAM 
// EXTENT SYSO93,VOL002 
{ff FXEF SAMPL ?2?,S17F=AUNTNO 
ok & OF COPY EXFCUTION * * * 
Jf ASSGM SYS92°92,FRA,YOL=VOL 002, SHRP 
// DLPL INFILF,*KSOSSFILE2* y 60, VSAM 
/f EXTERT SYSON2,VULA0? 
// FXEC TOSCAMS,SIE7E=AUTO 
PRINT INFILECINFILFE) OUIMP- 
FKFEY(9C912) 
/* 
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FILFS USED IN APLICATION SM - SYS002 
RECORDS RECCRDS BLOCKS BLOCKS BLOCKS 
TY- PRIMARY INC. Te IN Ce Aw IN DATA IN INDEX IN ALTER, TOTAL 
LAR EL PE RECORDS FREE SPACE FREE SPACE COMPONENT OATASET INOEX BLOCKS 
SAM FILF 1 Ss 1.550 64 64 
SAM TILE 4 Ss 4.750 192 192 
TCTAL NO. OF BLOCKS SYS002 256 
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PAG. 1 
SYSTEM 3 
LABEL 
FILEL 
FILES 


Ty- 
LABEL PE 
ESOS.FILE3 E 
KSOS.FILE2 K 
TOTAL NO. OF BLOCKS SYS003 


TOTAL NO. OF BLOEKS APLICATION 


SM 


FELES USED IN APLICATION SM — SYSO03 


PRIMARY 
RECORDS 


3.200 
2.030 


RECORDS 
INC. Fe 


RECORDS 
IN Ce Ae 


FREE SPACE FREE SPACE 


280 


BLOCKS 
IN DATA 
COMPONENT 


128 
160 


BLOCKS BLOCKS 
IN INDEX IN ALTER. 
DATASET INDEX 

32 


128 
192 


320 


576 


PAG. 2 


SYSTEM 3 
LABEL 





FILES 
FILE2 
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LOGICAL SYS USED 


LISTING GF ERRORS DETECTED 


FFILEL Ic 249 20RO05Al 1 DISK45 
FILE ATTRIBUTES DN NOT MATCH 
ALLOWED — TYPES KA ~ RECORD 20 - KLENG 5 — KLOC 1 
SUBMITED — TYPE €& —- RECORD 20 — KLENG —- KLOC 


EREORS DETECTED TN SQURCE PROGEAM SAMPL3 - CORRECT IT, AND REPEAT THE STEP. 
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09 
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ACTION MESSAGFS FOR THE PFOGRAM SAMPLI 


NCN IDFNTIFIEM RFECCRD CAN CANCEL THE PROGRAM.— MAY BE NECESSARY TO CHECK THE 
*FRFOR FIELD. 


& EP JOB JNM=SAMPLIT,CLASS=9 


/f JOP SAMPLI 


COMPILE 


// OPTION CATAL 
PHASE SAMPL1,S 
/f EXEC RPGIT,SIZE=64K 


QOLOLOH 


Q2OLOFC APD 
O2N70FF TLE L 
O2N3A0FFE IF? 


OBOLNICARD 
N302N07T 


940100 Ot 
N4D2NCLR 
N4930CL& 
NGN4OCLR 9? 
N4050CLF 
O4060C1 R 
N4070CL® 
N4OHOCLE 
o4nenct RP 


OSXLOCFILE] 


J 
IP Ff 
0 FIOQN9 
a oF 
NS oO} 
tk TAGL 
NUIMP 
MUOMB 
LRTAG2 
E 


£9 
29 
39 


ENC 
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AND LNKEDT 


SETON 

TAG 

CUMP LAST 
GOTO LRTAG2 
ADD 4 

SF TON 
rXCPT 
GaTO 
TAG 


LPTAGL 


LISTING OF PROGRAM SAMPLI 


RFADOL SYSEPT 


FBA SYS09?5 
KSDS 
1 SOLAST 
LR 
a2 
NUMB 50 
O02 


SAMPLL 


SAMPL 1 
SAMPL 1 
SAMPL1 


SAMPL1 
SAMPL 1 


SAMPL 1 
SAMPL1 
SAMPL 1 
SAMPL 1 
SAMPL1 
SAMPI.1 
SAMPL 1 
SAMPL 1 
SAMPL 1 


SAMPL 1 
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*09 


LISTING OF PROGRAM SAMPLI 


950200 15 "FILF 1 - RECORD? SAMPL 1 
95030C NUMRB 7 20 SAMPL 1 
N5040PF ILE? F 03 SAMPL1L 
asersor NUMP 7 5 SAMPL 1 
95060n NUMR 7 30 SAMPL 1 
o5C070N 25 ‘FILE 2 - RECORD! SAMPL 1 
/* 

// FXEC LMKEDT,ST7E=64k 

/% ; 

* RP ERY 
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46 


él 
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WARNING MESSAGES FOR THE PROGRAM SAMPL2 


L COMMENT CAPT HAS REFN ADDED. 


CRANGED SKIP TS A LINE NUMPER BY SKIP TG A CHANNEL. 


ONF SOACF AFTER ASSUMED. 
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# PR JOB JNM=SAMPLO,CLASS=9 
// $22 SAMPL2 COMPILE AND LNKEDT 
// OPTION CATAL 
PHASE SAMPL2,S 
// EXEC KPGTI,ST7°=64K 


O1LN1N# J 


O2OLOFFILEL 12 FinoO 70 
A20°9FFILE? CF 39R SA 
N2N30FL IST nm oF 13? oF 


OBO1LOL* OFEFLODENL 


O4OLOTFILF) NS 92 


O402701 

N40207 

O4040 TF ILE? he 9? 

N40507 

O50 L9F QL MUMB CHAINFILE2 
OFOLOCE TST ) 301 iP 
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LISTING 


OF PROGRAM SAMPL2 


FRA SYSO00258 


KSDS 


PRINTERSYSLST 


Li 


20 TEX 
200 NIME 


30 TFEK2 


93 


SAMPL 2 


SAMPL 2 
SAMPL 2 
SAMPL 2 


OLEDL2ZSAMPL 2 


SAMPL 2 
S AMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 


SAMPL 2 


SAMPL 2 
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0460200 
06030 
Q6N400 
o06c50c 
o6060N 
060700 
0608900 
/* 

ff EXC 
f6 


* PR FNS 


OR OF 
o. AL 
TeX 
TEX2 
T 12 LR 


LNKFENT,STZ7F=64K 


LISTING OF PROGRAM SAMPL2 


*HEADER® 


"END® 


SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
SAMPL 2 
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62 


61 


CHANN 


LINES 


USED 


SAMPI. 
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FLS FL 
AE 
RY PEAGKAMS 


9 


CARRIAGE CONTROL TAPF O01 CR FCB FRECBOOL 


OL 02 03 04 O5 6 7 08 


OG 


10 


1 


le 


40 


T 


9G¢ 


ce 6l 
99 


S430 74 
WiLOdL 


*OVd 


TOOTOA YIVd NO SHOOT ss 


XJGNT° asl TV 
NI SX8997d 


43S°Q XSUNT °Odwod 


"UN Wil 


c0G 
co 


mW 


VivG °*SO7 ddAl 


NI SHO 78 NE SHI07¢ SAS 


LOGICA 2IVd 


NJ3.G3iV901 S4TI4 


7 344d wV¥S 
{f 3114 wvs 
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¢ 


Ode COOTOA WIVG NO SHYDOTeY JO TUN THLUi 


col Ze 
82t 


XJONT°asiTV LaS*d XAJONI °3dwWOD VIVG °SOT 
NI SxD0TE 


S430 TE 
WLOL NI Sx3078 


*OVd 


O91 £00 
Bel £00 


NI Sx¥307T¢9 SAS 


COOTOA XIVd NI G4LVIM 


S411 4 


cs tia*SUsy 
cd Id °SU0sd 
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Jt 
/t 


If 
‘/ 


ff 
‘t 


tf 
‘ft 


DLAI 
FXTENT 


DL At 
EX TENT 


NL BL 
EXTENT 


DL eL 
FXTFNT 


LISTING OF DLBL*S-TLBL*S AND EXTENTS 


+ "ESDS.FILE3*,90,VSAM 
SYSNf3, VOLO02 


9 "ESOS FILE 2%,60,VSAM 
SYS003,VOL002 


»'SAM FILE 1*,36,S0 
SYSOO2,VEOLOOLs Ly 19352,64 


»*SAM FILE 4,120,589 
SYSOO?,VOLON1L,1,1_9416,19? 
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DICTIONARY OF PROGRAM FXECUTICN CONTROL STATEMENTS 


Me Re Re aie Se ea ak a a ae ak a ae og aka a a ak ak de te SAMPL | x dks eK RE Re RK et 


/f ASSGM SYSTPT,X#0QC8 

// ASSGN SYSO0C2,FRA,VAL=VALOOL, SHE 
f/ ASSGN SYS903,FEA,VOL=VOLOQ2, SHE 
// DOUBLE FILE, *SA® FILE 1°,30,59 
{1 EXTENT SYSCO2,VOLO01 91914352564 
7/ OLPL FILED, *KSOSSFILE2*, 60, VSAM 
/? EY TENT SYS903,VOL002 

/f EXEC SAMPLI,STZF=AUTC 


Fok a tok etek dk ok kok dk ae SAMPL 


// ASSGN SYSLST,X"OOES 

* FF LST FOCRAPPPCPOOL,LST=SYSLST 
/f ASSGY SYSOO?yFPAyVOLS=VOLOAML, SHP 
// ASSGN SYS0032,FRBA,VOL=VOLO002, SHR 
// OL PL FILFL, "SAM FILE 1*,2q,6n 
TT EXTENT SCYSOO?,VELOOL 1914352 564 
J/ POLPL FILE 2g *¥SNS.LFILE29, 60,VSAM 
fé EXTENT SYSO73, VOL Q02 

f} EXEC SAMPL 2,517£=AUTSC 
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He Xe Re oo ook fe oe ak hk ok ok 


* TAPOOL TE CHPY S$ 3 TFILFIL® 


// 
// 
// 
// 
// 
// 
// 
// 
If 
// 
‘f/f 


LOAD FTINIT,F1 


RUN 


LISTING OF S 3 COPYS 


TO NEW 


"SAM FILE 1? 


TYPF S 


VOL UNTT~T1l,TYPE-CLEAR yREEL-TAPOOL »DENSITY—-1600 


FN 


LOAD ®COPY, FL 
FILE NAME-COPYIN,LARFL-FILEL,UNIT-  yPACK- 
FILE NAME-COPYVO,LABFL-FILE1,UNIT-Tl, 
REFL-TAPOOL,SLKL-—4080,RECL-20,RECFM-FB 


RUN 
CePyY FILE 
EMQ 


OQUTPUT-FILE 
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LISTING OF A.M.S. COMMANDS AND DATA IMPORT UTILITY CARDS 


eo & * DEFINE M.CATAL. MASTER.CATALOG * * * 


// 


// 
f 


/* 


e & 


// 
ff 
/f 
If 


/* 


xO 


// 
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OLBt TJSYSCT, "MASTER .CATALOG',9999,VSAM 


EXTENT SYSCAT, 299 1256 
EXEC TOCAMS, SI7ZE=AUTO 
NEFINE MCAT- 


(NAMF (MASTER .CATALOG )- 
FILE (IUSYSCT)- 

BLOCKS (256)- 

VOLUME ( y) 


* DPRINE SPACE VVOLOO2.NATA.SPACE.LOOODDON.L.SPALC * * * 
ASSGM SYS003,FPA,VOL=VSL002, SHR 
DLAL DATASPy*VVOLOQO2.DATA.S SPACE -LODQOOOO.LeSPAC 99999 9VSAM 
EXTENT SYSU03,VOLO02» 99704, 3220 
EXEC INTAMS,SIZ°=ANTR 
DEFINE SPACE- 

(BLOCKS (329)- 

FILECQATAS? )- 

VOLUME SCVPLOO2))- 

CATALOG(MASTER .CATALDG) 


* DFFINE £SOS CSOS.FILE3 * & & 

FYFC TNCAMS,SI7&=AuTO 

DEFINE CLUSTFR- 
(NAMECESOS.FILE3)- 
VPLUMES (VUL002)- 
FOP (9n)- 
RECS7(20 ?0)- 
€157(1924)- 
SPEFD- 


/* 


LISTING DF AeM.eS. COMMANDS AND DATA IMPORT UTILITY CARDS 


PECORNS(3200 800)- 

SHR(2)- 

REUSE- 

NIXD)- 

DATA- 

(NAME (ESS -FILE2.L0000000.L0000000.DATA) )- 
CATALDG(MASTER .CATALOG) 


# & * DEFINE KSDS KSNS.FILE2 * * # 
// EXEC TACAMS,SEZF=AUT_A 


/* 


eo 


Lf 
Mf 


/f DERE 


DEFINE 


ASSGN 
AS SGN 


CLUSTER- 

(NAMECKSDS.FILE2)- 

VOLUMES (VOL002)- 

FOR (€0)- 

RECSZ2(30 30)- 

SPFED- 

SHR(?)- 

FSPC(12 13)- 

KEYS(5 O))- 

DATA- 

CNAME (KSOS.FILE2.LO000000.LOCCO000. DATA) — 
RECNRDS( 2640 4N€ )- 

€18§2(1024))- 

INDE x- 

(NAME (KSOS.FILE2.1 OO0N CFO. LO000C00.INDX)- 
C187(512))- 

CATALGGC(MASTER -CATALOG ) 


DATA IMPORT UTILITY TO COPY FILF KSDS.FILE2 * * * 
SYSO04, 23240,VOL= 
SYSIOTsFRA,VOL EVOL O02, SHR 

CUTPUT, KSOSSFILE2% y60, VSAM 


ff EXTENT SYSOO7T,VELOO2 
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LISTING DF AwM.S. COMMANDS AND DATA IMPORT 


// FXEC SBDATA, SIZE=AUTO 

// FILE NAME-FILE?,PACK- 

// guTP DLABL-OUTP UT yAM-VSAM 
/* 


ee e PERRO TO COPY FILE SAM FILF 1 * * * 


// ASSGN SYSN04, TAPE, VOL=TAPOOL 
// ASSGN SYSO05,FRA,VOL=VOLN01,SHR 
/¢/ TLPEL TAPEIN, *FILEL*,,TAPOOL 
/f OLBL FILFGUT, "SAM FILE 14,30,59 
/f EXTENT SYSO05,VOLOOL ys» 352,64 
/f EXEC TOCAMS,SI7F=AuTAO 
REPRO INFILECTAPEIN- 
FEN Y- 
(CP FCFMCFR )- 
PLKS7Z(4030)- 


RECS7(20)- 
PNFV(2400)))- 
OCUTPILECEILEANT- 
ENY- 
CercrMCer )- 
BLKSZ(1090)- 
PECS7 (29)- 
PYEV(FBA))) 

/* 
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UTILITY 


CARDS 


LISTINF OF MESSAGES DICTIONARY 


3 NO INFOSMATTION ABOUT THIS PROGRAM. 


28 NIGIT PORTION USED (0 IN COL.8) 


46 SELFCT KFY WITH UNKEYFD FILE. 
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LISTING OF JOB STREAM CONVERSION 


we o® & SAMPLI1 EXECUTION * * * 


Jf 
t/ 
‘/ 
/f 
/f 
/f 
‘f 
tf 
tf 
‘ft 


UPST oc910N00 
DATF 10/12/78 
ASSGN SYSIPT,X*#00C! 
ASSGN SYSO02,FRA,VOL=VOLOO1, SHR 
ASSGN SYS003,FBA,VOL=VOL002, SHR 
OLOL FILEL,'SAM FILE 44,129,590 
FXTFNT SYS00?,VOLO01,49416,192 
DLBL FILE2,*KSDS.FILF2',60, VSAM 
EXTENT SYS003,VOL002 
EXEC SAMPL1,SIZE=AUTO 

* #€ & & INSERT ANY DATA HERE * & * * 


* € * SORT EXECUTION * * * 


f/ 
// 
// 
Mf 
ff 


‘Tt 
// 


/* 


ASSGN SYSO02y,FEA yVOL=VOL002y SHR 

ASSGN SYS003,FBA,VOL=VOLOOL, SHR 

ALA SORTONT,  FSDS.FILE3", 90, VSAM 
FXTENT SYS002,V9L002 

DLBL SOKTINY,*SAM FILE 1", 30,8) 
EXTENT SYSO03,VULOOL 99) 352564 

EXEC SORT,SI7E=64K 

QPTION PRENT=ALL ySORTWK=001, SORTOUT=002 »SORTIN=003 
ALTSEQ CONE=(FAFR) 

INCLUPF COND=(1,2,A9,NE,C #) 

SORT FIFLOS=(Ly5970,4),F ILES=1,WORK=} 
RECORD TYPFSP,yLENGTH=(29) 

INPFIL BLKST7ZE=1000 

QUTFTL FSOS,PEUSE 


END 


* kK SAMPLO EXECUTION * & & 
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Mf 


LISTING OF JOB STREAM CONVERSION 


ASSGN SYSLST»X*OOE* 


Opn LST FCB=FRFCBOOLsLST=SYSLST 


‘/ 
“ 
‘/ 
‘f 
if 
Mt 


d/ 
él 
‘ft 
zi 


~aNN 
~~ 


al 
‘f 


vf 


ASSGN SYSO002,FBAsVOL=VOLOO1_ SHR 
ASSGN SYS003,FBA,VOL=VOLO02, SHR 
DLBL FILEL,*SAM FILE 4*,120,SD 
EXTENT SYS002+ VOLOO1L s+ o416.192 
OLBL FILE2s"KSDS.FILE2",60, VSAM 
EXTENT SYS003, VOL002 
FKEC SAMPL 2,.SIZE=AUTO 
* # & # INSERT ANY DATA HERE * * * & 


LOAD 8DSORT,»R2I 
FILE NAME-INPUT,UNIT~01,PACK-D101D01,LABEL-FILES 
FILE NAME-OUTPUT ,UNIT-DL ¢PACK-D1D101 yTRACKS-10 ,LABEL-FILEL 
RUN 
HSORTR 5A xX 20 
FND 1 5 
Foe 20 


LOAN RCOPY,PR1 

FILE NAME-COPYVIN,tINTT-DLyPACK-DINIDY sLABEL-FILE3 
RUN 

COPYFILE UUTPUT-PF INT 

SELECT KEY,FROM-*00012* 


LOAD SAMOL3,R1 
FELF NAME-FILFL,UNIT-91,PACK~N1N101 -LABFL-FILFE3 
PUN 


* ee TNPY EXFCUTION * ® * 


fi 
‘ft 


ASSGN SYSO003,FRA,VOL=VOLO02, SHR 
OL BL INFILE,*KSDS.FILE2* 260,VSAM 


PAG. 


3 


anne ee: 


enn 


** 


NOT 
NOT 
Not 
NOT 
Not 
NOT 
NOT 


NoT 
NOT 
Not 
NOT 
NOT 


NOT 
NOT 
NOT 


CONVERTED 
CONVERTED 
CONVERTED 
CONVERTED 
CCNVERTED 
CONVERTED 
CONVERTED 


CONVERTED 
CONVERTED 
CCNVERTED 
CONVERTED 
CONVERTED 


CONVERTED 
CONVERTED 
CCNVERTED 


enenenen ee 


ee nee 


** 


#262 


£468 


*O3*% 
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LISTING OF JOB STRFAM CONVERSION 


// EXTENT SYS0023, VCLO02 


// EXFC 
PRINT 


/x 
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INCAMS,SIZF=AUTO 
INFILE (INFILE) OuMP- 
FKFY(00012) 
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READER’S COMMENT FORM 


Conversion Aid System/3 SB11-5351-0 
to DOS/VSE PDOM 


We would appreciate your comments. Please give specific page and line references where appropriate. Your 
comments will be carefully reviewed by the persons responsible for writing and publishing this material. 


IBM may use or distribute any of the information you supply in any way it believes appropriate without 
incurring any obligation whatever. You may, of course, continue to use the information you supply. 


If you wish a reply, please be sure to include your name and address. 


COMMENTS 


THANK YOU FOR YOUR COOPERATION 
PLEASE FOLD ON TWO LINES, STAPLE AND MAIL 


$B11-5351-0 


YOUR COMMENTS, PLEASE 


Your comments on the other side of this form will help us improve future editions of this publication. 


Each reply will be carefully reviewed by the persons and department responsible for writing and publishing 


this material. 


Please note that requests for copies of publications and for assistance in utilizing your IBM system should 


be directed to your IBM representative or the IBM branch office serving your locality. 
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